/*-*-mode: 

!
!  Dalton, a molecular electronic structure program
!  Copyright (C) The Dalton Authors (see AUTHORS file for details).
!
!  This program is free software; you can redistribute it and/or
!  modify it under the terms of the GNU Lesser General Public
!  License version 2.1 as published by the Free Software Foundation.
!
!  This program is distributed in the hope that it will be useful,
!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
!  Lesser General Public License for more details.
!
!  If a copy of the GNU LGPL v2.1 was not distributed with this
!  code, you can obtain one at https://www.gnu.org/licenses/old-licenses/lgpl-2.1.en.html.
!

!

*/
/* fun-b97.c:

   Automatically generated code implementing B97 functional and
   its derivatives. It is generated by func-codegen.pl being a part of
   a "Automatic code generation framework for analytical functional
   derivative evaluation", Pawel Salek, 2005

    This functional is connected by making following changes:
    1. add "extern Functional b97Functional;" to 'functionals.h'
    2. add "&b97Functional," to 'functionals.c'
    3. add "fun-b97.c" to 'Makefile.am', 'Makefile.in' or 'Makefile'.

    This functional has been generated from following input:
    ------ cut here -------
 A.D. Becke, "Density-functional thermochemistry. v. systematic
optimization of exchange-correlation functionals", J. Chem. Phys.,
107(20):8554­8560, 1997 

xa: (grada/rhoa^(4/3));
xb: (gradb/rhob^(4/3));

pa: 1;
Aa: 0.016887;
a1a: 0.11125;
b1a: 10.357;
b2a: 3.6231;
b3a: 0.88026;
b4a: 0.49671;

pe: 1;
c0p: 0.031091;
a1p: 0.21370;
b1p: 7.5957;
b2p: 3.5876;
b3p: 1.6382;
b4p: 0.49294;

c0f: 0.01554500000;
a1f: 0.20548;
b1f: 14.1189;
b2f: 6.1977;
b3f: 3.3662;
b4f: 0.62517;

ccab: [0.9454, 0.7471, -4.5961];
ccaa: [0.1737, 2.3487, -2.4868];
cx:   [0.8094, 0.5073,  0.7481];


rs(r):= (3/(4*%PI*r))^(1/3);
z(ra,rb):= (ra-rb)/(ra+rb);
fz(v):= ((1+v)^(4/3) + (1-v)^(4/3) - 2)/(2*2^(1/3) - 2);

d2fz0: 1.709921;

Gc(r,A,a1,b1,b2,b3,b4,p):= -2*A*(1 + a1*r)
   *log(1 + 0.5/(A*(b1*sqrt(r) + b2*r + b3*r^(3/2) + b4*r^(p+1))));

Ac(x):= -Gc(x,Aa,a1a,b1a,b2a,b3a,b4a,pa);
EcP(x):= Gc(x,c0p,a1p,b1p,b2p,b3p,b4p,pe);
EcF(x):= Gc(x,c0f,a1f,b1f,b2f,b3f,b4f,pe);


EcLSDA(ra,rb):=(ra+rb)*(EcP(rs(ra+rb)) +
   Ac(rs(ra+rb))*fz(z(ra,rb))*(1-(z(ra,rb))^4)/d2fz0 +
   (EcF(rs(ra+rb))-EcP(rs(ra+rb)))*fz(z(ra,rb))*
   (z(ra,rb))^4);

EcabLSDA(ra,rb):= EcLSDA(ra,rb)-EcLSDA(ra,0)-EcLSDA(rb,0);

gcab: 0.006;
gcaa: 0.2;

cx0: -3/8*((16*3/%PI)^(1/3));
gx: 0.004;

Ucab(t):= gcab*t/(1+gcab*t);
Ucaa(t):= gcaa*t/(1+gcaa*t);

Gcab(t):= ccab[1] + ccab[2]*Ucab(t) + ccab[3]*Ucab(t)^2;
Gcaa(t):= ccaa[1] + ccaa[2]*Ucaa(t) + ccaa[3]*Ucaa(t)^2;

Ux(r):= gx*r/(1+gx*r);

ExLSDAa: (cx0*rhoa^(4/3));
ExLSDAb: (cx0*rhob^(4/3));

Gx(t):= cx[1] + cx[2]*Ux(t) + cx[3]*Ux(t)^2;

K(rhoa,grada,rhob,gradb,gradab):=
   EcabLSDA(rhoa,rhob)*Gcab(0.5*xa^2 + 0.5*xb^2)
 + ExLSDAa*Gx(xa^2) + EcLSDA(rhoa,0) * Gcaa(xa^2) +
 + ExLSDAb*Gx(xb^2) + EcLSDA(rhob,0) * Gcaa(xb^2);


    ------ cut here -------
*/

 
/* strictly conform to XOPEN ANSI C standard */
#if !defined(SYS_DEC)
/* XOPEN compliance is missing on old Tru64 4.0E Alphas and pow() prototype
 * is not specified. */
#define _XOPEN_SOURCE          500
#define _XOPEN_SOURCE_EXTENDED 1
#endif
#include <math.h>
#include <stddef.h>
#include "general.h"

#define __CVERSION__
 
#include "functionals.h"
 
/* INTERFACE PART */
static integer b97_isgga(void) { return 1; } /* FIXME: detect! */
static integer b97_read(const char *conf_line);
static real b97_energy(const FunDensProp* dp);
static void b97_first(FunFirstFuncDrv *ds,   real factor,
                         const FunDensProp* dp);
static void b97_second(FunSecondFuncDrv *ds, real factor,
                          const FunDensProp* dp);
static void b97_third(FunThirdFuncDrv *ds,   real factor,
                         const FunDensProp* dp);
static void b97_fourth(FunFourthFuncDrv *ds,   real factor,
                          const FunDensProp* dp);
 
Functional B97Functional = {
  "B97",       /* name */
  b97_isgga,   /* gga-corrected */
   1,
  b97_read,
  NULL,
  b97_energy,
  b97_first,
  b97_second,
  b97_third,
  b97_fourth
};
 
/* IMPLEMENTATION PART */
static integer
b97_read(const char *conf_line)
{
    fun_set_hf_weight(0.19430);
    return 1;
}

static real
b97_energy(const FunDensProp *dp)
{
    real res;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46;

    t1 = pow(3.0,.6666666666666666);
    t2 = 1/pow(4.0,.6666666666666666);
    t3 = 1/pow(3.141592653589793,.6666666666666666);
    t4 = 1.732050807568877;
    t5 = .5641895835477563;
    t6 = pow(3.0,.3333333333333333);
    t7 = 1/pow(4.0,.3333333333333333);
    t8 = 1/pow(3.141592653589793,.3333333333333333);
    t9 = 1/pow(rhoa,.3333333333333333);
    t10 = pow(2.0,.3333333333333333);
    t11 = 1/t10;
    t12 = pow(3.0,.1666666666666667);
    t13 = 1/pow(3.141592653589793,.1666666666666667);
    t14 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhoa,
        .6666666666666666)+14.1189*t11*t12*t13/pow(rhoa,.1666666666666667)+
        1.6831*t4*t5/sqrt(rhoa)+6.1977*t6*t7*t8*t9)+1.0);
    t15 = pow(grada,4.0);
    t16 = pow(grada,2.0);
    t17 = 1/pow(rhoa,2.666666666666667);
    t18 = 0.2*t16*t17+1.0;
    t19 = 1/pow(rhoa,5.333333333333333);
    t20 = 0.20548*t6*t7*t8*t9+1.0;
    t21 = pow(6.0,.3333333333333333);
    t22 = 0.004*t16*t17+1.0;
    t23 = 1/pow(rhob,.3333333333333333);
    t24 = log(32.1646831778707/(0.62517*t1*t2*t3/pow(rhob,
        .6666666666666666)+14.1189*t11*t12*t13/pow(rhob,.1666666666666667)+
        1.6831*t4*t5/sqrt(rhob)+6.1977*t6*t7*t8*t23)+1.0);
    t25 = pow(gradb,4.0);
    t26 = pow(gradb,2.0);
    t27 = 1/pow(rhob,2.666666666666667);
    t28 = 0.2*t26*t27+1.0;
    t29 = 1/pow(rhob,5.333333333333333);
    t30 = 0.20548*t6*t7*t8*t23+1.0;
    t31 = 0.004*t26*t27+1.0;
    t32 = 0.5*t26*t27+0.5*t16*t17;
    t33 = 0.006*t32+1.0;
    t34 = rhob+rhoa;
    t35 = 1/pow(t34,.3333333333333333);
    t36 = 0.2137*t6*t7*t8*t35+1.0;
    t37 = 1/pow(t34,.6666666666666666);
    t38 = 1/sqrt(t34);
    t39 = 1/pow(t34,.1666666666666667);
    t40 = log(16.0818243221511/(7.5957*t11*t12*t13*t39+3.5876*
        t6*t7*t8*t35+0.8191*t4*t5*t38+0.49294*t1*t2*t3*t37)+1.0);
    t41 = 1/
        (2.0*t10-2.0);
    t42 = rhoa-1.0*rhob;
    t43 = pow(t42,4.0);
    t44 = 1/pow(t34,4.0);
    t45 = 1/t34;
    t46 = pow(t42*t45+1.0,1.333333333333333)+pow(1.0-1.0*
        t42*t45,1.333333333333333)-2.0;

   /* code */
    res = -0.75*t21*(1.19696e-5*t25*t29/pow(t31,2.0)+0.0020292*
        t26*t27/t31+0.8094)*t8*pow(rhob,1.333333333333333)+(-1.654596e-4*
        pow(t32,2.0)/pow(t33,2.0)+0.0044826*t32/t33+0.9454)*(0.03109*
        t24*t30*rhob+0.03109*t14*t20*rhoa+t34*(.0197517897025652*(0.11125*
        t6*t7*t8*t35+1.0)*log(29.60857464321668/(10.357*t11*t12*t13*
        t39+3.6231*t6*t7*t8*t35+0.44013*t4*t5*t38+0.49671*t1*t2*t3*
        t37)+1.0)*t41*(1.0-1.0*t43*t44)*t46+(0.062182*t36*t40-0.03109*
        (0.20548*t6*t7*t8*t35+1.0)*log(32.1646831778707/(14.1189*t11*
        t12*t13*t39+6.1977*t6*t7*t8*t35+1.6831*t4*t5*t38+0.62517*t1*
        t2*t3*t37)+1.0))*t41*t43*t44*t46-0.062182*t36*t40))-0.03109*
        t24*(-0.099472*t25*t29/pow(t28,2.0)+0.46974*t26*t27/t28+0.1737)*
        t30*rhob-0.75*t21*(1.19696e-5*t15*t19/pow(t22,2.0)+0.0020292*
        t16*t17/t22+0.8094)*t8*pow(rhoa,1.333333333333333)-0.03109*
        t14*(-0.099472*t15*t19/pow(t18,2.0)+0.46974*t16*t17/t18+0.1737)*
        t20*rhoa;

    return res;
}

static void
b97_first(FunFirstFuncDrv *ds, real factor, const FunDensProp *dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138;

    t1 = pow(3.0,.3333333333333333);
    t2 = 1/pow(4.0,.3333333333333333);
    t3 = 1/pow(3.141592653589793,.3333333333333333);
    t4 = pow(3.0,.6666666666666666);
    t5 = 1/pow(4.0,.6666666666666666);
    t6 = 1/pow(3.141592653589793,.6666666666666666);
    t7 = 1.732050807568877;
    t8 = .5641895835477563;
    t9 = sqrt(rhoa);
    t10 = pow(rhoa,.3333333333333333);
    t11 = 1/t10;
    t12 = pow(2.0,.3333333333333333);
    t13 = 1/t12;
    t14 = pow(3.0,.1666666666666667);
    t15 = 1/pow(3.141592653589793,.1666666666666667);
    t16 = 0.62517*t4*t5*t6/pow(rhoa,.6666666666666666)+14.1189*
        t13*t14*t15/pow(rhoa,.1666666666666667)+1.6831*t7*t8/t9+6.1977*
        t1*t2*t3*t11;
    t17 = 32.1646831778707/t16+1.0;
    t18 = log(t17);
    t19 = pow(grada,4.0);
    t20 = pow(grada,2.0);
    t21 = 1/pow(rhoa,2.666666666666667);
    t22 = 0.2*t20*t21+1.0;
    t23 = 1/pow(t22,2.0);
    t24 = 1/pow(rhoa,5.333333333333333);
    t25 = 1/t22;
    t26 = 0.46974*t20*t25*t21-0.099472*t19*t23*t24+0.1737;
    t27 = 0.20548*
        t1*t2*t3*t11+1.0;
    t28 = pow(6.0,.3333333333333333);
    t29 = 0.004*t20*t21+1.0;
    t30 = 1/pow(t29,2.0);
    t31 = 1/t29;
    t32 = pow(grada,6.0);
    t33 = 1/pow(t22,3.0);
    t34 = 1/pow(rhoa,9.0);
    t35 = 1/pow(rhoa,6.333333333333333);
    t36 = 1/pow(rhoa,3.666666666666667);
    t37 = 1/t17;
    t38 = pow(rhoa,1.333333333333333);
    t39 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
        t13*t14*t15/pow(rhoa,1.166666666666667)-0.84155*t7*t8/pow(t9,
        3.0)-2.0659*t1*t2*t3/t38;
    t40 = 1/pow(t16,2.0);
    t41 = 1/pow(t29,3.0);
    t42 = pow(gradb,2.0);
    t43 = 1/pow(rhob,2.666666666666667);
    t44 = 0.5*t42*t43+0.5*t20*t21;
    t45 = pow(t44,2.0);
    t46 = 0.006*t44+1.0;
    t47 = 1/pow(t46,2.0);
    t48 = 1/t46;
    t49 = 0.0044826*t44*t48-1.654596e-4*t45*t47+0.9454;
    t50 = rhob+
        rhoa;
    t51 = 1/pow(t50,.3333333333333333);
    t52 = 0.2137*t1*t2*t3*t51+1.0;
    t53 = 1/pow(t50,.6666666666666666);
    t54 = sqrt(t50);
    t55 = 1/t54;
    t56 = 1/pow(t50,.1666666666666667);
    t57 = 7.5957*t13*t14*t15*t56+3.5876*t1*t2*t3*t51+0.8191*
        t7*t8*t55+0.49294*t4*t5*t6*t53;
    t58 = 16.0818243221511/t57+1.0;
    t59 = log(t58);
    t60 = -0.062182*t52*t59;
    t61 = 1/(2.0*t12-2.0);
    t62 = rhoa-1.0*rhob;
    t63 = pow(t62,4.0);
    t64 = 1/pow(t50,4.0);
    t65 = 1.0-1.0*t63*t64;
    t66 = 0.11125*t1*t2*t3*t51+1.0;
    t67 = 1/t50;
    t68 = 1.0-1.0*t62*t67;
    t69 = t62*t67+1.0;
    t70 = pow(t69,1.333333333333333)+pow(t68,1.333333333333333)-
        2.0;
    t71 = 10.357*t13*t14*t15*t56+3.6231*t1*t2*t3*t51+0.44013*
        t7*t8*t55+0.49671*t4*t5*t6*t53;
    t72 = 29.60857464321668/t71+1.0;
    t73 = log(t72);
    t74 = .0197517897025652*t61*t65*t66*t70*t73;
    t75 = 0.20548*t1*t2*t3*t51+1.0;
    t76 = 14.1189*t13*t14*t15*t56+6.1977*t1*t2*t3*t51+1.6831*
        t7*t8*t55+0.62517*t4*t5*t6*t53;
    t77 = 32.1646831778707/t76+1.0;
    t78 = log(t77);
    t79 = 0.062182*t52*t59-0.03109*t75*t78;
    t80 = t61*t63*t64*t70*t79;
    t81 = 1/pow(t50,1.666666666666667);
    t82 = 1/pow(t54,3.0);
    t83 = 1/pow(t50,1.333333333333333);
    t84 = 1/pow(t50,1.166666666666667);
    t85 = -1.26595*t13*t14*t15*t84-1.195866666666667*t1*t2*
        t3*t83-0.40955*t7*t8*t82-.3286266666666666*t4*t5*t6*t81;
    t86 = 1/
        pow(t57,2.0);
    t87 = 1/t58;
    t88 = .9999999999999999*t85*t52*t86*t87;
    t89 = -.5848223397455204*t61*t65*t66*t70*(-1.726166666666666*
        t13*t14*t15*t84-1.2077*t1*t2*t3*t83-0.220065*t7*t8*t82-0.33114*
        t4*t5*t6*t81)/(pow(t71,2.0)*t72);
    t90 = .0044294311333333*t1*t2*t3*t83*t59;
    t91 = 1/pow(t50,2.0);
    t92 = t62*t91;
    t93 = -1.0*t67;
    t94 = pow(t68,.3333333333333333);
    t95 = -1.0*t62*t91;
    t96 = pow(t69,.3333333333333333);
    t97 = 1.333333333333333*(t67+t95)*t96+1.333333333333333*
        (t93+t92)*t94;
    t98 = -7.324622014701263e-4*t61*t1*t2*t3*t83*t65*t70*
        t73;
    t99 = 1/pow(t50,5.0);
    t100 = 4.0*t63*t99;
    t101 = pow(t62,3.0);
    t102 = t61*t63*t64*t70*(-.9999999999999999*t85*t52*t86*
        t87+t75*(-2.35315*t13*t14*t15*t84-2.0659*t1*t2*t3*t83-0.84155*
        t7*t8*t82-0.41678*t4*t5*t6*t81)/(pow(t76,2.0)*t77)+.0021294577333333*
        t1*t2*t3*t83*t78-.0044294311333333*t1*t2*t3*t83*t59);
    t103 = -4.0*t61*t63*t70*t79*t99;
    t104 = 1/pow(t46,3.0);
    t105 = sqrt(rhob);
    t106 = pow(rhob,.3333333333333333);
    t107 = 1/t106;
    t108 = 0.62517*t4*t5*t6/pow(rhob,.6666666666666666)+14.1189*
        t13*t14*t15/pow(rhob,.1666666666666667)+1.6831*t7*t8/t105+
        6.1977*t1*t2*t3*t107;
    t109 = 32.1646831778707/t108+1.0;
    t110 = log(t109);
    t111 = 0.20548*t1*t2*t3*t107+1.0;
    t112 = t50*(t80+t74+t60)+0.03109*t110*t111*rhob+0.03109*
        t18*t27*rhoa;
    t113 = pow(gradb,4.0);
    t114 = 0.2*t42*t43+1.0;
    t115 = 1/pow(t114,2.0);
    t116 = 1/pow(rhob,5.333333333333333);
    t117 = 1/t114;
    t118 = 0.46974*t42*t117*t43-0.099472*t113*t115*t116+0.1737;
    t119 = 0.004*
        t42*t43+1.0;
    t120 = 1/pow(t119,2.0);
    t121 = 1/t119;
    t122 = pow(gradb,6.0);
    t123 = 1/pow(t114,3.0);
    t124 = 1/pow(rhob,9.0);
    t125 = 1/pow(rhob,6.333333333333333);
    t126 = 1/pow(rhob,3.666666666666667);
    t127 = 1/t109;
    t128 = pow(rhob,1.333333333333333);
    t129 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
        2.35315*t13*t14*t15/pow(rhob,1.166666666666667)-0.84155*t7*
        t8/pow(t105,3.0)-2.0659*t1*t2*t3/t128;
    t130 = 1/pow(t108,2.0);
    t131 = 1/pow(t119,3.0);
    t132 = 1.333333333333333*(t93+t95)*t96+1.333333333333333*
        (t67+t92)*t94;
    t133 = pow(grada,5.0);
    t134 = 1/pow(rhoa,8.0);
    t135 = pow(grada,3.0);
    t136 = pow(gradb,5.0);
    t137 = 1/pow(rhob,8.0);
    t138 = pow(gradb,3.0);

   /* code */
    dfdra = t49*(-1.0*t37*t39*t27*t40*rhoa+t50*(t98+t90+t89+
        t88+t61*t63*t64*t97*t79+4.0*t101*t61*t64*t70*t79+.0197517897025652*
        t61*t65*t66*t97*t73+.0197517897025652*t61*(t100-4.0*t101*t64)*
        t66*t70*t73+t103+t102)+t80+t74+t60+0.03109*t18*t27-.0021294577333333*
        t1*t2*t3*t18*t11)+t37*t26*t39*t27*t40*rhoa-0.03109*t18*(-1.25264*
        t20*t25*t36+.7810453333333334*t19*t23*t35-.1061034666666667*
        t32*t33*t34)*t27*rhoa-0.75*t28*t3*(-0.0054112*t20*t31*t36-
        4.219306666666666e-5*t19*t30*t35+2.553514666666666e-7*t32*
        t41*t34)*t38-1.0*t10*(0.0020292*t20*t31*t21+1.19696e-5*t19*
        t30*t24+0.8094)*t28*t3-0.03109*t18*t26*t27+(-0.0059768*t20*
        t36*t48+4.770864e-4*t20*t36*t44*t47-2.6473536e-6*t20*t36*t45*
        t104)*t112+.0021294577333333*t1*t2*t3*t18*t26*t11;
    dfdrb = t49*(-1.0*t127*t129*t111*t130*rhob+t50*(t98+t90+
        t89+t88-4.0*t101*t61*t64*t70*t79+t61*t63*t64*t132*t79+.0197517897025652*
        t61*(4.0*t101*t64+t100)*t66*t70*t73+.0197517897025652*t61*
        t65*t66*t132*t73+t103+t102)+t80+t74+t60+0.03109*t110*t111-
        .0021294577333333*t1*t2*t3*t110*t107)+t127*t118*t129*t111*
        t130*rhob-0.03109*t110*(-1.25264*t42*t117*t126+.7810453333333334*
        t113*t115*t125-.1061034666666667*t122*t123*t124)*t111*rhob-
        1.0*t106*t28*t3*(0.0020292*t42*t121*t43+1.19696e-5*t113*t120*
        t116+0.8094)-0.75*(-0.0054112*t42*t121*t126-4.219306666666666e-5*
        t113*t120*t125+2.553514666666666e-7*t122*t131*t124)*t128*t28*
        t3+(-0.0059768*t42*t48*t126+4.770864e-4*t42*t44*t47*t126-2.6473536e-6*
        t42*t45*t104*t126)*t112-0.03109*t110*t118*t111+.0021294577333333*
        t1*t2*t3*t110*t118*t107;
    dfdga = -0.03109*t18*(.9394800000000001*grada*t25*t21-
        .5857840000000001*t135*t23*t24+0.0795776*t133*t33*t134)*t27*
        rhoa-0.75*(0.0040584*grada*t31*t21+3.16448e-5*t135*t30*t24-
        1.915136e-7*t133*t41*t134)*t28*t3*t38+(0.0044826*grada*t21*
        t48-3.578148e-4*grada*t21*t44*t47+1.9855152e-6*grada*t21*t45*
        t104)*t112;
    dfdgb = -0.03109*t110*(.9394800000000001*gradb*t117*t43-
        .5857840000000001*t138*t115*t116+0.0795776*t136*t123*t137)*
        t111*rhob-0.75*t128*t28*t3*(0.0040584*gradb*t121*t43+3.16448e-5*
        t138*t120*t116-1.915136e-7*t136*t131*t137)+(0.0044826*gradb*
        t48*t43-3.578148e-4*gradb*t44*t47*t43+1.9855152e-6*gradb*t45*
        t104*t43)*t112;
    dfdgab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;
   
}

static void
b97_second(FunSecondFuncDrv *ds, real factor, const FunDensProp* dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
        d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
        d2fdgbgb, d2fdgbgab, d2fdgabgab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166, t167, t168;
    real t169, t170, t171, t172, t173, t174, t175;
    real t176, t177, t178, t179, t180, t181, t182;
    real t183, t184, t185, t186, t187, t188, t189;
    real t190, t191, t192, t193, t194, t195, t196;
    real t197, t198, t199, t200, t201, t202, t203;
    real t204, t205, t206, t207, t208, t209, t210;
    real t211, t212, t213, t214, t215, t216, t217;
    real t218, t219, t220, t221, t222, t223, t224;
    real t225, t226, t227, t228, t229, t230, t231;
    real t232, t233, t234, t235, t236, t237, t238;
    real t239, t240, t241, t242, t243, t244, t245;
    real t246, t247, t248, t249, t250, t251, t252;
    real t253;

    t1 = pow(3.0,.3333333333333333);
    t2 = 1/pow(4.0,.3333333333333333);
    t3 = 1/pow(3.141592653589793,.3333333333333333);
    t4 = pow(3.0,.6666666666666666);
    t5 = 1/pow(4.0,.6666666666666666);
    t6 = 1/pow(3.141592653589793,.6666666666666666);
    t7 = 1/pow(rhoa,.6666666666666666);
    t8 = 1.732050807568877;
    t9 = .5641895835477563;
    t10 = sqrt(rhoa);
    t11 = pow(rhoa,.3333333333333333);
    t12 = 1/t11;
    t13 = pow(2.0,.3333333333333333);
    t14 = 1/t13;
    t15 = pow(3.0,.1666666666666667);
    t16 = 1/pow(3.141592653589793,.1666666666666667);
    t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
        1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
    t18 = 32.1646831778707/
        t17+1.0;
    t19 = log(t18);
    t20 = pow(grada,4.0);
    t21 = pow(grada,2.0);
    t22 = 1/pow(rhoa,2.666666666666667);
    t23 = 0.2*t21*t22+1.0;
    t24 = 1/pow(t23,2.0);
    t25 = 1/pow(rhoa,5.333333333333333);
    t26 = 1/t23;
    t27 = 0.46974*t21*t26*t22-0.099472*t20*t24*t25+0.1737;
    t28 = 0.20548*
        t1*t2*t3*t12+1.0;
    t29 = pow(6.0,.3333333333333333);
    t30 = 0.004*t21*t22+1.0;
    t31 = 1/pow(t30,2.0);
    t32 = 1/t30;
    t33 = 0.0020292*t21*t32*t22+1.19696e-5*t20*t31*t25+0.8094;
    t34 = pow(grada,
        6.0);
    t35 = 1/pow(t23,3.0);
    t36 = 1/pow(rhoa,9.0);
    t37 = 1/pow(rhoa,6.333333333333333);
    t38 = 1/pow(rhoa,3.666666666666667);
    t39 = -1.25264*t21*t26*t38+.7810453333333334*t20*t24*
        t37-.1061034666666667*t34*t35*t36;
    t40 = 1/t18;
    t41 = pow(rhoa,1.333333333333333);
    t42 = 1/t41;
    t43 = -0.41678*t4*t5*t6/pow(rhoa,1.666666666666667)-2.35315*
        t14*t15*t16/pow(rhoa,1.166666666666667)-0.84155*t8*t9/pow(t10,
        3.0)-2.0659*t1*t2*t3*t42;
    t44 = 1/pow(t17,2.0);
    t45 = 1/pow(t30,3.0);
    t46 = -0.0054112*t21*t32*t38-4.219306666666666e-5*t20*
        t31*t37+2.553514666666666e-7*t34*t45*t36;
    t47 = pow(gradb,2.0);
    t48 = 1/pow(rhob,2.666666666666667);
    t49 = 0.5*t47*t48+0.5*t21*t22;
    t50 = pow(t49,2.0);
    t51 = 0.006*t49+1.0;
    t52 = 1/pow(t51,2.0);
    t53 = 1/t51;
    t54 = 0.0044826*t49*t53-1.654596e-4*t50*t52+0.9454;
    t55 = rhob+
        rhoa;
    t56 = 1/pow(t55,.3333333333333333);
    t57 = 0.2137*t1*t2*t3*t56+1.0;
    t58 = 1/pow(t55,.6666666666666666);
    t59 = sqrt(t55);
    t60 = 1/t59;
    t61 = 1/pow(t55,.1666666666666667);
    t62 = 7.5957*t14*t15*t16*t61+3.5876*t1*t2*t3*t56+0.8191*
        t8*t9*t60+0.49294*t4*t5*t6*t58;
    t63 = 16.0818243221511/t62+1.0;
    t64 = log(t63);
    t65 = -0.062182*t57*t64;
    t66 = 1/(2.0*t13-2.0);
    t67 = rhoa-1.0*rhob;
    t68 = pow(t67,4.0);
    t69 = 1/pow(t55,4.0);
    t70 = 1.0-1.0*t68*t69;
    t71 = 0.11125*t1*t2*t3*t56+1.0;
    t72 = 1/t55;
    t73 = 1.0-1.0*t67*t72;
    t74 = t67*t72+1.0;
    t75 = pow(t74,1.333333333333333)+pow(t73,1.333333333333333)-
        2.0;
    t76 = 10.357*t14*t15*t16*t61+3.6231*t1*t2*t3*t56+0.44013*
        t8*t9*t60+0.49671*t4*t5*t6*t58;
    t77 = 29.60857464321668/t76+1.0;
    t78 = log(t77);
    t79 = .0197517897025652*t66*t70*t71*t75*t78;
    t80 = 0.20548*t1*t2*t3*t56+1.0;
    t81 = 14.1189*t14*t15*t16*t61+6.1977*t1*t2*t3*t56+1.6831*
        t8*t9*t60+0.62517*t4*t5*t6*t58;
    t82 = 32.1646831778707/t81+1.0;
    t83 = log(t82);
    t84 = 0.062182*t57*t64-0.03109*t80*t83;
    t85 = t66*t68*t69*t75*t84;
    t86 = 1/pow(t55,1.666666666666667);
    t87 = 1/pow(t59,3.0);
    t88 = 1/pow(t55,1.333333333333333);
    t89 = 1/pow(t55,1.166666666666667);
    t90 = -1.26595*t14*t15*t16*t89-1.195866666666667*t1*t2*
        t3*t88-0.40955*t8*t9*t87-.3286266666666666*t4*t5*t6*t86;
    t91 = 1/
        pow(t62,2.0);
    t92 = 1/t63;
    t93 = .9999999999999999*t90*t57*t91*t92;
    t94 = -1.726166666666666*t14*t15*t16*t89-1.2077*t1*t2*
        t3*t88-0.220065*t8*t9*t87-0.33114*t4*t5*t6*t86;
    t95 = 1/pow(t76,2.0);
    t96 = 1/t77;
    t97 = -.5848223397455204*t66*t70*t94*t71*t95*t75*t96;
    t98 = .0044294311333333*
        t1*t2*t3*t88*t64;
    t99 = 1/pow(t55,2.0);
    t100 = t67*t99;
    t101 = -1.0*t72;
    t102 = t101+t100;
    t103 = pow(t73,.3333333333333333);
    t104 = -1.0*t67*t99;
    t105 = t72+t104;
    t106 = pow(t74,.3333333333333333);
    t107 = 1.333333333333333*t105*t106+1.333333333333333*
        t102*t103;
    t108 = .0197517897025652*t66*t70*t71*t107*t78;
    t109 = -7.324622014701263e-4*t66*t1*t2*t3*t88*t70*t75*
        t78;
    t110 = 1/pow(t55,5.0);
    t111 = 4.0*t110*t68;
    t112 = pow(t67,3.0);
    t113 = t111-4.0*t112*t69;
    t114 = .0197517897025652*t66*t113*t71*t75*t78;
    t115 = -2.35315*t14*t15*t16*t89-2.0659*t1*t2*t3*t88-0.84155*
        t8*t9*t87-0.41678*t4*t5*t6*t86;
    t116 = 1/pow(t81,2.0);
    t117 = 1/t82;
    t118 = .0021294577333333*t1*t2*t3*t88*t83-.0044294311333333*
        t1*t2*t3*t88*t64+t115*t80*t116*t117-.9999999999999999*t90*
        t57*t91*t92;
    t119 = t66*t68*t69*t75*t118;
    t120 = t66*t68*t69*t107*t84;
    t121 = -4.0*t110*t66*t68*t75*t84;
    t122 = -1.0*t40*t43*t28*t44*rhoa+t55*(t98+t97+t93+4.0*
        t112*t66*t69*t75*t84+t121+t120+t119+t114+t109+t108)+t85+t79+
        t65+0.03109*t19*t28-.0021294577333333*t1*t2*t3*t19*t12;
    t123 = 1/pow(t51,3.0);
    t124 = -0.0059768*t21*t38*t53+4.770864e-4*t21*t38*t49*
        t52-2.6473536e-6*t21*t38*t50*t123;
    t125 = 1/pow(rhob,.6666666666666666);
    t126 = sqrt(rhob);
    t127 = pow(rhob,.3333333333333333);
    t128 = 1/t127;
    t129 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
        1.6831*t8*t9/t126+6.1977*t1*t2*t3*t128+0.62517*t4*t5*t6*t125;
    t130 = 32.1646831778707/
        t129+1.0;
    t131 = log(t130);
    t132 = 0.20548*t1*t2*t3*t128+1.0;
    t133 = t55*(t85+t79+t65)+0.03109*t131*t132*rhob+0.03109*
        t19*t28*rhoa;
    t134 = pow(gradb,4.0);
    t135 = 0.2*t47*t48+1.0;
    t136 = 1/pow(t135,2.0);
    t137 = 1/pow(rhob,5.333333333333333);
    t138 = 1/t135;
    t139 = 0.46974*t47*t138*t48-0.099472*t134*t136*t137+0.1737;
    t140 = 0.004*
        t47*t48+1.0;
    t141 = 1/pow(t140,2.0);
    t142 = 1/t140;
    t143 = 0.0020292*t47*t142*t48+1.19696e-5*t134*t141*t137+
        0.8094;
    t144 = pow(gradb,6.0);
    t145 = 1/pow(t135,3.0);
    t146 = 1/pow(rhob,9.0);
    t147 = 1/pow(rhob,6.333333333333333);
    t148 = 1/pow(rhob,3.666666666666667);
    t149 = -1.25264*t47*t138*t148+.7810453333333334*t134*
        t136*t147-.1061034666666667*t144*t145*t146;
    t150 = 1/t130;
    t151 = pow(rhob,1.333333333333333);
    t152 = 1/t151;
    t153 = -0.41678*t4*t5*t6/pow(rhob,1.666666666666667)-
        2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-0.84155*t8*
        t9/pow(t126,3.0)-2.0659*t1*t2*t3*t152;
    t154 = 1/pow(t129,2.0);
    t155 = 1/pow(t140,3.0);
    t156 = -0.0054112*t47*t142*t148-4.219306666666666e-5*
        t134*t141*t147+2.553514666666666e-7*t144*t155*t146;
    t157 = t72+t100;
    t158 = t101+t104;
    t159 = 1.333333333333333*t106*t158+1.333333333333333*
        t103*t157;
    t160 = .0197517897025652*t66*t70*t71*t159*t78;
    t161 = 4.0*t112*t69+t111;
    t162 = .0197517897025652*t66*t161*t71*t75*t78;
    t163 = t66*t68*t69*t159*t84;
    t164 = -1.0*t150*t153*t132*t154*rhob+t55*(t98+t97+t93-
        4.0*t112*t66*t69*t75*t84+t163+t162+t160+t121+t119+t109)+t85+
        t79+t65+0.03109*t131*t132-.0021294577333333*t1*t2*t3*t131*
        t128;
    t165 = -0.0059768*t47*t53*t148+4.770864e-4*t47*t49*t52*
        t148-2.6473536e-6*t47*t50*t123*t148;
    t166 = pow(grada,5.0);
    t167 = 1/pow(rhoa,8.0);
    t168 = pow(grada,3.0);
    t169 = .9394800000000001*grada*t26*t22-.5857840000000001*
        t168*t24*t25+0.0795776*t166*t35*t167;
    t170 = 0.0040584*grada*t32*t22+3.16448e-5*t168*t31*t25-
        1.915136e-7*t166*t45*t167;
    t171 = 0.0044826*grada*t22*t53-3.578148e-4*grada*t22*
        t49*t52+1.9855152e-6*grada*t22*t50*t123;
    t172 = pow(gradb,5.0);
    t173 = 1/pow(rhob,8.0);
    t174 = pow(gradb,3.0);
    t175 = .9394800000000001*gradb*t138*t48-.5857840000000001*
        t174*t136*t137+0.0795776*t172*t145*t173;
    t176 = 0.0040584*gradb*t142*t48+3.16448e-5*t174*t141*
        t137-1.915136e-7*t172*t155*t173;
    t177 = 0.0044826*gradb*t53*t48-3.578148e-4*gradb*t49*
        t52*t48+1.9855152e-6*gradb*t50*t123*t48;
    t178 = pow(grada,8.0);
    t179 = 1/pow(t23,4.0);
    t180 = 1/pow(rhoa,12.66666666666667);
    t181 = 1/pow(rhoa,10.0);
    t182 = 1/pow(rhoa,7.333333333333333);
    t183 = 1/pow(rhoa,4.666666666666667);
    t184 = 1/pow(t18,2.0);
    t185 = pow(t43,2.0);
    t186 = 1/pow(t17,4.0);
    t187 = 1/pow(t17,3.0);
    t188 = 2.754533333333333*t1*t2*t3/pow(rhoa,2.333333333333333)+
        2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
        1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22;
    t189 = 1/
        pow(t30,4.0);
    t190 = 2.0*t90*t57*t91*t92;
    t191 = -1.169644679491041*t66*t70*t94*t71*t95*t75*t96;
    t192 = .0088588622666667*
        t1*t2*t3*t88*t64;
    t193 = -.0014649244029403*t66*t1*t2*t3*t88*t70*t75*t78;
    t194 = 2.0*
        t118*t66*t68*t69*t75;
    t195 = -8.0*t110*t66*t68*t75*t84;
    t196 = pow(t90,2.0);
    t197 = 1/pow(t62,4.0);
    t198 = 1/pow(t63,2.0);
    t199 = 16.0818243221511*t196*t57*t197*t198;
    t200 = 1/pow(t62,3.0);
    t201 = -2.0*t196*t57*t200*t92;
    t202 = -.1424666666666666*t1*t2*t3*t88*t90*t91*t92;
    t203 = 1/
        pow(t55,2.666666666666667);
    t204 = 1/pow(t59,5.0);
    t205 = 1/pow(t55,2.333333333333333);
    t206 = 1/pow(t55,2.166666666666667);
    t207 = 1.476941666666667*t14*t15*t16*t206+1.594488888888889*
        t1*t2*t3*t205+0.614325*t8*t9*t204+0.547711111111111*t4*t5*
        t6*t203;
    t208 = .9999999999999999*t207*t57*t91*t92;
    t209 = pow(t94,2.0);
    t210 = -17.31575589937587*t209*t66*t70*t71*t75/(pow(t76,
        4.0)*pow(t77,2.0));
    t211 = 1.169644679491041*t209*t66*t70*t71*t75*t96/pow(t76,
        3.0);
    t212 = .0433743235311261*t66*t1*t2*t3*t88*t70*t94*t95*
        t75*t96;
    t213 = -.5848223397455204*t66*t70*(2.013861111111111*
        t14*t15*t16*t206+1.610266666666667*t1*t2*t3*t205+0.3300975*
        t8*t9*t204+.5519000000000001*t4*t5*t6*t203)*t71*t95*t75*t96;
    t214 = -
        .0059059081777778*t1*t2*t3*t205*t64;
    t215 = 1/pow(t73,.6666666666666666);
    t216 = 1/pow(t55,3.0);
    t217 = -2.0*t216*t67;
    t218 = 2.0*t99;
    t219 = 1/pow(t74,.6666666666666666);
    t220 = 2.0*t216*t67;
    t221 = -2.0*t99;
    t222 = 1.333333333333333*t106*(t221+t220)+.4444444444444444*
        pow(t105,2.0)*t219+1.333333333333333*t103*(t218+t217)+.4444444444444444*
        pow(t102,2.0)*t215;
    t223 = 9.766162686268349e-4*t66*t1*t2*t3*t205*t70*t75*
        t78;
    t224 = 1/pow(t55,6.0);
    t225 = -20.0*t224*t68;
    t226 = pow(t67,2.0);
    t227 = -12.0*t226*t69;
    t228 = pow(t115,2.0);
    t229 = t66*t68*t69*t75*(.1424666666666666*t1*t2*t3*t88*
        t90*t91*t92-.9999999999999999*t207*t57*t91*t92+2.0*t196*t57*
        t200*t92-.0028392769777778*t1*t2*t3*t205*t83+32.1646831778707*
        t228*t80/(pow(t81,4.0)*pow(t82,2.0))-2.0*t117*t228*t80/pow(t81,
        3.0)+.0059059081777778*t1*t2*t3*t205*t64-16.0818243221511*
        t196*t57*t197*t198+(2.745341666666667*t14*t15*t16*t206+2.754533333333333*
        t1*t2*t3*t205+1.262325*t8*t9*t204+.6946333333333333*t4*t5*
        t6*t203)*t80*t116*t117-.1369866666666666*t1*t2*t3*t88*t115*
        t116*t117);
    t230 = -8.0*t110*t118*t66*t68*t75;
    t231 = 20.0*t224*t66*t68*t75*t84;
    t232 = 12.0*t226*t66*t69*t75*t84;
    t233 = 1/pow(t51,4.0);
    t234 = 2.666666666666667*t106*t216*t67-2.666666666666667*
        t103*t216*t67+.4444444444444444*t105*t158*t219+.4444444444444444*
        t102*t157*t215;
    t235 = pow(grada,7.0);
    t236 = 1/pow(rhoa,11.66666666666667);
    t237 = pow(gradb,8.0);
    t238 = 1/pow(t135,4.0);
    t239 = 1/pow(rhob,12.66666666666667);
    t240 = 1/pow(rhob,10.0);
    t241 = 1/pow(rhob,7.333333333333333);
    t242 = 1/pow(rhob,4.666666666666667);
    t243 = 1/pow(t130,2.0);
    t244 = pow(t153,2.0);
    t245 = 1/pow(t129,4.0);
    t246 = 1/pow(t129,3.0);
    t247 = 2.754533333333333*t1*t2*t3/pow(rhob,2.333333333333333)+
        2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
        1.262325*t8*t9/pow(t126,5.0)+.6946333333333333*t4*t5*t6*t48;
    t248 = 1/
        pow(t140,4.0);
    t249 = 1.333333333333333*t103*(t221+t217)+.4444444444444444*
        pow(t158,2.0)*t219+1.333333333333333*t106*(t218+t220)+.4444444444444444*
        pow(t157,2.0)*t215;
    t250 = pow(gradb,7.0);
    t251 = 1/pow(rhob,11.66666666666667);
    t252 = 1/pow(rhoa,10.66666666666667);
    t253 = 1/pow(rhob,10.66666666666667);

   /* code */
    dfdra = t40*t27*t43*t28*t44*rhoa-0.03109*t19*t39*t28*
        rhoa-0.75*t29*t3*t41*t46-1.0*t11*t29*t3*t33-0.03109*t19*t27*
        t28+t124*t133+t54*t122+.0021294577333333*t1*t2*t3*t19*t27*
        t12;
    dfdrb = t150*t139*t153*t132*t154*rhob-0.03109*t131*t149*
        t132*rhob-0.75*t151*t156*t29*t3-1.0*t127*t143*t29*t3+t54*t164+
        t165*t133-0.03109*t131*t139*t132+.0021294577333333*t1*t2*t3*
        t131*t139*t128;
    dfdga = -0.03109*t19*t169*t28*rhoa-0.75*t170*t29*t3*t41+
        t171*t133;
    dfdgb = -0.03109*t131*t175*t132*rhob-0.75*t151*t176*t29*
        t3+t177*t133;
    dfdgab = 0.0;
    d2fdrara = t54*(-1.0*t40*t188*t28*t44*rhoa+2.0*t40*t185*
        t28*t187*rhoa-32.1646831778707*t184*t185*t28*t186*rhoa+t55*
        (-1.169644679491041*t66*t113*t94*t71*t95*t75*t96-1.169644679491041*
        t66*t70*t94*t71*t95*t107*t96-32.0*t110*t112*t66*t75*t84+8.0*
        t107*t112*t66*t69*t84-8.0*t107*t110*t66*t68*t84+t66*t68*t69*
        t222*t84+.0197517897025652*(t227+t225+32.0*t110*t112)*t66*
        t71*t75*t78-.0014649244029403*t66*t1*t2*t3*t88*t113*t75*t78+
        .0197517897025652*t66*t70*t71*t222*t78+.0395035794051304*t66*
        t113*t71*t107*t78-.0014649244029403*t66*t1*t2*t3*t88*t70*t107*
        t78+8.0*t112*t118*t66*t69*t75+2.0*t107*t118*t66*t68*t69+t232+
        t231+t230+t229+t223+t214+t213+t212+t211+t210+t208+t202+t201+
        t199)+8.0*t112*t66*t69*t75*t84+2.0*t107*t66*t68*t69*t84+.0395035794051304*
        t66*t113*t71*t75*t78+.0395035794051304*t66*t70*t71*t107*t78-
        2.0*t40*t43*t28*t44-.0014196384888889*t1*t2*t3*t19*t42+t195+
        t194+t193+t192+t191+t190+.1369866666666666*t1*t2*t3*t40*t43*
        t44*t12)+2.0*t28*t39*t40*t43*t44*rhoa+t40*t27*t188*t28*t44*
        rhoa-2.0*t185*t187*t27*t28*t40*rhoa-0.03109*t19*(4.593013333333333*
        t21*t26*t183-5.61469511111111*t20*t24*t182+1.788046222222222*
        t34*t35*t181-.1697655466666667*t178*t179*t180)*t28*rhoa+32.1646831778707*
        t184*t27*t185*t28*t186*rhoa-.3333333333333333*t29*t3*t33*t7-
        2.0*t11*t29*t3*t46+2.0*t27*t28*t40*t43*t44+.0014196384888889*
        t1*t2*t3*t19*t27*t42-0.75*(.0198410666666667*t21*t32*t183+
        2.095032888888889e-4*t20*t31*t182-3.198281955555555e-6*t34*
        t45*t181+8.171246933333332e-9*t178*t189*t180)*t29*t3*t41-0.06218*
        t19*t39*t28+(.0219149333333333*t21*t183*t53-0.0017493168*t21*
        t183*t49*t52-6.839295999999999e-4*t20*t182*t52+9.706963200000001e-6*
        t21*t183*t50*t123+1.4692992e-5*t20*t182*t49*t123-6.35364864e-8*
        t20*t182*t50*t233)*t133+2.0*t122*t124-.1369866666666666*t1*
        t2*t3*t40*t27*t43*t44*t12+.0042589154666667*t1*t2*t3*t19*t39*
        t12;
    d2fdrarb = t54*(t55*(-.5848223397455204*t66*t161*t94*
        t71*t95*t75*t96-.5848223397455204*t66*t113*t94*t71*t95*t75*
        t96-.5848223397455204*t66*t70*t94*t71*t95*t159*t96-.5848223397455204*
        t66*t70*t94*t71*t95*t107*t96-12.0*t226*t66*t69*t75*t84+4.0*
        t112*t159*t66*t69*t84-4.0*t107*t112*t66*t69*t84-4.0*t110*t159*
        t66*t68*t84-4.0*t107*t110*t66*t68*t84+t66*t68*t69*t234*t84+
        .0197517897025652*t66*(12.0*t226*t69+t225)*t71*t75*t78-7.324622014701263e-4*
        t66*t1*t2*t3*t88*t161*t75*t78-7.324622014701263e-4*t66*t1*
        t2*t3*t88*t113*t75*t78+.0197517897025652*t66*t70*t71*t234*
        t78+.0197517897025652*t66*t113*t71*t159*t78-7.324622014701263e-4*
        t66*t1*t2*t3*t88*t70*t159*t78+.0197517897025652*t66*t161*t71*
        t107*t78-7.324622014701263e-4*t66*t1*t2*t3*t88*t70*t107*t78+
        t231+t230+t229+t223+t214+t213+t212+t211+t210+t208+t202+t201+
        t199+t66*t68*t69*t159*t118+t66*t68*t69*t107*t118)+t195+t194+
        t193+t192+t191+t190+t163+t162+t160+t120+t114+t108)+t124*t164+
        (-6.839295999999999e-4*t21*t47*t38*t52*t148+1.4692992e-5*t21*
        t47*t38*t49*t123*t148-6.35364864e-8*t21*t47*t38*t50*t233*t148)*
        t133+t165*t122;
    d2fdraga = t40*t169*t43*t28*t44*rhoa-0.03109*t19*(-2.50528*
        grada*t26*t38+3.625237333333334*t168*t24*t37-1.261457066666667*
        t166*t35*t36+0.12732416*t235*t179*t236)*t28*rhoa-0.75*t29*
        t3*(-0.0108224*grada*t32*t38-1.254826666666667e-4*t168*t31*
        t37+2.207197866666666e-6*t166*t45*t36-6.128435199999999e-9*
        t235*t189*t236)*t41-1.0*t11*t170*t29*t3-0.03109*t19*t169*t28+
        (-0.0119536*grada*t38*t53+9.541727999999999e-4*grada*t38*t49*
        t52+5.129471999999999e-4*t168*t37*t52-5.294707200000001e-6*
        grada*t38*t50*t123-1.1019744e-5*t168*t37*t49*t123+4.76523648e-8*
        t168*t37*t50*t233)*t133+t171*t122+.0021294577333333*t1*t2*
        t3*t19*t169*t12;
    d2fdragb = (5.129471999999999e-4*t21*gradb*t38*t52*t48-
        1.1019744e-5*t21*gradb*t38*t49*t123*t48+4.76523648e-8*t21*
        gradb*t38*t50*t233*t48)*t133+t177*t122;
    d2fdraab = 0.0;
    d2fdrbrb = t54*(2.0*t150*t244*t132*t246*rhob-32.1646831778707*
        t243*t244*t132*t245*rhob-1.0*t150*t247*t132*t154*rhob+t55*
        (-1.169644679491041*t66*t161*t94*t71*t95*t75*t96-1.169644679491041*
        t66*t70*t94*t71*t95*t159*t96+32.0*t110*t112*t66*t75*t84-8.0*
        t112*t159*t66*t69*t84-8.0*t110*t159*t66*t68*t84+t66*t68*t69*
        t249*t84+.0197517897025652*(t227+t225-32.0*t110*t112)*t66*
        t71*t75*t78-.0014649244029403*t66*t1*t2*t3*t88*t161*t75*t78+
        .0197517897025652*t66*t70*t71*t249*t78+.0395035794051304*t66*
        t161*t71*t159*t78-.0014649244029403*t66*t1*t2*t3*t88*t70*t159*
        t78-8.0*t112*t118*t66*t69*t75+2.0*t118*t159*t66*t68*t69+t232+
        t231+t230+t229+t223+t214+t213+t212+t211+t210+t208+t202+t201+
        t199)-8.0*t112*t66*t69*t75*t84+2.0*t159*t66*t68*t69*t84+.0395035794051304*
        t66*t161*t71*t75*t78+.0395035794051304*t66*t70*t71*t159*t78+
        t195+t194+t193+t192+t191+t190-2.0*t150*t153*t132*t154-.0014196384888889*
        t1*t2*t3*t131*t152+.1369866666666666*t1*t2*t3*t150*t153*t154*
        t128)-2.0*t132*t139*t150*t244*t246*rhob+32.1646831778707*t243*
        t139*t244*t132*t245*rhob+2.0*t132*t149*t150*t153*t154*rhob+
        t150*t139*t247*t132*t154*rhob-0.03109*t131*(4.593013333333333*
        t47*t138*t242-5.61469511111111*t134*t136*t241+1.788046222222222*
        t144*t145*t240-.1697655466666667*t237*t238*t239)*t132*rhob-
        0.75*t151*(.0198410666666667*t47*t142*t242+2.095032888888889e-4*
        t134*t141*t241-3.198281955555555e-6*t144*t155*t240+8.171246933333332e-9*
        t237*t248*t239)*t29*t3-2.0*t127*t156*t29*t3-.3333333333333333*
        t125*t143*t29*t3+2.0*t164*t165+2.0*t132*t139*t150*t153*t154+
        .0014196384888889*t1*t2*t3*t131*t139*t152+(.0219149333333333*
        t47*t53*t242-0.0017493168*t47*t49*t52*t242+9.706963200000001e-6*
        t47*t50*t123*t242-6.839295999999999e-4*t134*t52*t241+1.4692992e-5*
        t134*t49*t123*t241-6.35364864e-8*t134*t50*t233*t241)*t133-
        0.06218*t131*t149*t132-.1369866666666666*t1*t2*t3*t150*t139*
        t153*t154*t128+.0042589154666667*t1*t2*t3*t131*t149*t128;
    d2fdrbga = (5.129471999999999e-4*grada*t47*t22*t52*t148-
        1.1019744e-5*grada*t47*t22*t49*t123*t148+4.76523648e-8*grada*
        t47*t22*t50*t233*t148)*t133+t171*t164;
    d2fdrbgb = t150*t175*t153*t132*t154*rhob-0.03109*t131*
        (-2.50528*gradb*t138*t148+3.625237333333334*t174*t136*t147-
        1.261457066666667*t172*t145*t146+0.12732416*t250*t238*t251)*
        t132*rhob-1.0*t127*t176*t29*t3-0.75*(-0.0108224*gradb*t142*
        t148-1.254826666666667e-4*t174*t141*t147+2.207197866666666e-6*
        t172*t155*t146-6.128435199999999e-9*t250*t248*t251)*t151*t29*
        t3+t177*t164+(-0.0119536*gradb*t53*t148+9.541727999999999e-4*
        gradb*t49*t52*t148-5.294707200000001e-6*gradb*t50*t123*t148+
        5.129471999999999e-4*t174*t52*t147-1.1019744e-5*t174*t49*t123*
        t147+4.76523648e-8*t174*t50*t233*t147)*t133-0.03109*t131*t175*
        t132+.0021294577333333*t1*t2*t3*t131*t175*t128;
    d2fdrbgab = 0.0;
    d2fdgaga = -0.03109*t19*(.9394800000000001*t26*t22-2.133144*
        t21*t24*t25+.8665152000000003*t20*t35*t167-0.09549312*t34*
        t179*t252)*t28*rhoa-0.75*(0.0040584*t32*t22+6.246719999999999e-5*
        t21*t31*t25-1.4638848e-6*t20*t45*t167+4.5963264e-9*t34*t189*
        t252)*t29*t3*t41+(0.0044826*t22*t53-3.578148e-4*t22*t49*t52-
        3.847104000000001e-4*t21*t25*t52+1.9855152e-6*t22*t50*t123+
        8.264808e-6*t21*t25*t49*t123-3.57392736e-8*t21*t25*t50*t233)*
        t133;
    d2fdgagb = (-3.847104000000001e-4*grada*gradb*t22*t52*
        t48+8.264808e-6*grada*gradb*t22*t49*t123*t48-3.57392736e-8*
        grada*gradb*t22*t50*t233*t48)*t133;
    d2fdgagab = 0.0;
    d2fdgbgb = -0.03109*t131*(.9394800000000001*t138*t48-
        2.133144*t47*t136*t137+.8665152000000003*t134*t145*t173-0.09549312*
        t144*t238*t253)*t132*rhob-0.75*t151*t29*t3*(0.0040584*t142*
        t48+6.246719999999999e-5*t47*t141*t137-1.4638848e-6*t134*t155*
        t173+4.5963264e-9*t144*t248*t253)+(0.0044826*t53*t48-3.578148e-4*
        t49*t52*t48+1.9855152e-6*t50*t123*t48-3.847104000000001e-4*
        t47*t52*t137+8.264808e-6*t47*t49*t123*t137-3.57392736e-8*t47*
        t50*t233*t137)*t133;
    d2fdgbgab = 0.0;
    d2fdgabgab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;

    ds->df2000 += factor*d2fdrara;
    ds->df1100 += factor*d2fdrarb;
    ds->df1010 += factor*d2fdraga;
    ds->df1001 += factor*d2fdragb;
    ds->df10001+= factor*d2fdraab;
    ds->df0200 += factor*d2fdrbrb;
    ds->df0110 += factor*d2fdrbga;
    ds->df0101 += factor*d2fdrbgb;
    ds->df01001+= factor*d2fdrbgab;
    ds->df0020 += factor*d2fdgaga;
    ds->df0011 += factor*d2fdgagb;
    ds->df00101+= factor*d2fdgagab;
    ds->df0002 += factor*d2fdgbgb;
    ds->df00011+= factor*d2fdgbgab;
    ds->df00002+= factor*d2fdgabgab;

}

static void
b97_third(FunThirdFuncDrv *ds, real factor, const FunDensProp* dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
        d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
        d2fdgbgb, d2fdgbgab, d2fdgabgab;
    real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
         d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
         d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
         d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
         d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
         d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
         d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166, t167, t168;
    real t169, t170, t171, t172, t173, t174, t175;
    real t176, t177, t178, t179, t180, t181, t182;
    real t183, t184, t185, t186, t187, t188, t189;
    real t190, t191, t192, t193, t194, t195, t196;
    real t197, t198, t199, t200, t201, t202, t203;
    real t204, t205, t206, t207, t208, t209, t210;
    real t211, t212, t213, t214, t215, t216, t217;
    real t218, t219, t220, t221, t222, t223, t224;
    real t225, t226, t227, t228, t229, t230, t231;
    real t232, t233, t234, t235, t236, t237, t238;
    real t239, t240, t241, t242, t243, t244, t245;
    real t246, t247, t248, t249, t250, t251, t252;
    real t253, t254, t255, t256, t257, t258, t259;
    real t260, t261, t262, t263, t264, t265, t266;
    real t267, t268, t269, t270, t271, t272, t273;
    real t274, t275, t276, t277, t278, t279, t280;
    real t281, t282, t283, t284, t285, t286, t287;
    real t288, t289, t290, t291, t292, t293, t294;
    real t295, t296, t297, t298, t299, t300, t301;
    real t302, t303, t304, t305, t306, t307, t308;
    real t309, t310, t311, t312, t313, t314, t315;
    real t316, t317, t318, t319, t320, t321, t322;
    real t323, t324, t325, t326, t327, t328, t329;
    real t330, t331, t332, t333, t334, t335, t336;
    real t337, t338, t339, t340, t341, t342, t343;
    real t344, t345, t346, t347, t348, t349, t350;
    real t351, t352, t353, t354, t355, t356, t357;
    real t358, t359, t360, t361, t362, t363, t364;
    real t365, t366, t367, t368, t369, t370, t371;
    real t372, t373, t374, t375, t376, t377, t378;
    real t379, t380, t381, t382, t383, t384, t385;
    real t386, t387, t388, t389, t390, t391, t392;
    real t393, t394, t395, t396, t397, t398, t399;
    real t400, t401, t402, t403, t404, t405, t406;
    real t407, t408, t409, t410, t411, t412, t413;
    real t414, t415, t416, t417, t418, t419, t420;
    real t421, t422, t423, t424, t425, t426, t427;
    real t428, t429, t430, t431, t432, t433, t434;
    real t435, t436, t437, t438, t439, t440, t441;
    real t442, t443, t444, t445, t446, t447, t448;
    real t449, t450;

    t1 = pow(3.0,.3333333333333333);
    t2 = 1/pow(4.0,.3333333333333333);
    t3 = 1/pow(3.141592653589793,.3333333333333333);
    t4 = pow(3.0,.6666666666666666);
    t5 = 1/pow(4.0,.6666666666666666);
    t6 = 1/pow(3.141592653589793,.6666666666666666);
    t7 = 1/pow(rhoa,.6666666666666666);
    t8 = 1.732050807568877;
    t9 = .5641895835477563;
    t10 = sqrt(rhoa);
    t11 = pow(rhoa,.3333333333333333);
    t12 = 1/t11;
    t13 = pow(2.0,.3333333333333333);
    t14 = 1/t13;
    t15 = pow(3.0,.1666666666666667);
    t16 = 1/pow(3.141592653589793,.1666666666666667);
    t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
        1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
    t18 = 32.1646831778707/
        t17+1.0;
    t19 = log(t18);
    t20 = pow(grada,4.0);
    t21 = pow(grada,2.0);
    t22 = 1/pow(rhoa,2.666666666666667);
    t23 = 0.2*t21*t22+1.0;
    t24 = 1/pow(t23,2.0);
    t25 = 1/pow(rhoa,5.333333333333333);
    t26 = 1/t23;
    t27 = 0.46974*t21*t26*t22-0.099472*t20*t24*t25+0.1737;
    t28 = 0.20548*
        t1*t2*t3*t12+1.0;
    t29 = pow(6.0,.3333333333333333);
    t30 = 0.004*t21*t22+1.0;
    t31 = 1/pow(t30,2.0);
    t32 = 1/t30;
    t33 = 0.0020292*t21*t32*t22+1.19696e-5*t20*t31*t25+0.8094;
    t34 = pow(grada,
        6.0);
    t35 = 1/pow(t23,3.0);
    t36 = 1/pow(rhoa,9.0);
    t37 = 1/pow(rhoa,6.333333333333333);
    t38 = 1/pow(rhoa,3.666666666666667);
    t39 = -1.25264*t21*t26*t38+.7810453333333334*t20*t24*
        t37-.1061034666666667*t34*t35*t36;
    t40 = 1/t18;
    t41 = 1/pow(rhoa,1.666666666666667);
    t42 = pow(rhoa,1.333333333333333);
    t43 = 1/t42;
    t44 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
        0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t43-0.41678*t4*
        t5*t6*t41;
    t45 = 1/pow(t17,2.0);
    t46 = 1/pow(t30,3.0);
    t47 = -0.0054112*t21*t32*t38-4.219306666666666e-5*t20*
        t31*t37+2.553514666666666e-7*t34*t46*t36;
    t48 = pow(gradb,2.0);
    t49 = 1/pow(rhob,2.666666666666667);
    t50 = 0.5*t48*t49+0.5*t21*t22;
    t51 = pow(t50,2.0);
    t52 = 0.006*t50+1.0;
    t53 = 1/pow(t52,2.0);
    t54 = 1/t52;
    t55 = 0.0044826*t50*t54-1.654596e-4*t51*t53+0.9454;
    t56 = rhob+
        rhoa;
    t57 = 1/pow(t56,.3333333333333333);
    t58 = 0.2137*t1*t2*t3*t57+1.0;
    t59 = 1/pow(t56,.6666666666666666);
    t60 = sqrt(t56);
    t61 = 1/t60;
    t62 = 1/pow(t56,.1666666666666667);
    t63 = 7.5957*t14*t15*t16*t62+3.5876*t1*t2*t3*t57+0.8191*
        t8*t9*t61+0.49294*t4*t5*t6*t59;
    t64 = 16.0818243221511/t63+1.0;
    t65 = log(t64);
    t66 = -0.062182*t58*t65;
    t67 = 1/(2.0*t13-2.0);
    t68 = rhoa-1.0*rhob;
    t69 = pow(t68,4.0);
    t70 = 1/pow(t56,4.0);
    t71 = 1.0-1.0*t69*t70;
    t72 = 0.11125*t1*t2*t3*t57+1.0;
    t73 = 1/t56;
    t74 = 1.0-1.0*t68*t73;
    t75 = t68*t73+1.0;
    t76 = pow(t75,1.333333333333333)+pow(t74,1.333333333333333)-
        2.0;
    t77 = 10.357*t14*t15*t16*t62+3.6231*t1*t2*t3*t57+0.44013*
        t8*t9*t61+0.49671*t4*t5*t6*t59;
    t78 = 29.60857464321668/t77+1.0;
    t79 = log(t78);
    t80 = .0197517897025652*t67*t71*t72*t76*t79;
    t81 = 0.20548*t1*t2*t3*t57+1.0;
    t82 = 14.1189*t14*t15*t16*t62+6.1977*t1*t2*t3*t57+1.6831*
        t8*t9*t61+0.62517*t4*t5*t6*t59;
    t83 = 32.1646831778707/t82+1.0;
    t84 = log(t83);
    t85 = 0.062182*t58*t65-0.03109*t81*t84;
    t86 = t67*t69*t70*t76*t85;
    t87 = 1/pow(t56,1.666666666666667);
    t88 = 1/pow(t60,3.0);
    t89 = 1/pow(t56,1.333333333333333);
    t90 = 1/pow(t56,1.166666666666667);
    t91 = -1.26595*t14*t15*t16*t90-1.195866666666667*t1*t2*
        t3*t89-0.40955*t8*t9*t88-.3286266666666666*t4*t5*t6*t87;
    t92 = 1/
        pow(t63,2.0);
    t93 = 1/t64;
    t94 = .9999999999999999*t91*t58*t92*t93;
    t95 = -1.726166666666666*t14*t15*t16*t90-1.2077*t1*t2*
        t3*t89-0.220065*t8*t9*t88-0.33114*t4*t5*t6*t87;
    t96 = 1/pow(t77,2.0);
    t97 = 1/t78;
    t98 = -.5848223397455204*t67*t71*t95*t72*t96*t76*t97;
    t99 = .0044294311333333*
        t1*t2*t3*t89*t65;
    t100 = 1/pow(t56,2.0);
    t101 = t68*t100;
    t102 = -1.0*t73;
    t103 = t102+t101;
    t104 = pow(t74,.3333333333333333);
    t105 = -1.0*t100*t68;
    t106 = t73+t105;
    t107 = pow(t75,.3333333333333333);
    t108 = 1.333333333333333*t106*t107+1.333333333333333*
        t103*t104;
    t109 = .0197517897025652*t67*t71*t72*t108*t79;
    t110 = -7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t76*
        t79;
    t111 = 1/pow(t56,5.0);
    t112 = 4.0*t111*t69;
    t113 = pow(t68,3.0);
    t114 = t112-4.0*t113*t70;
    t115 = .0197517897025652*t67*t114*t72*t76*t79;
    t116 = -2.35315*t14*t15*t16*t90-2.0659*t1*t2*t3*t89-0.84155*
        t8*t9*t88-0.41678*t4*t5*t6*t87;
    t117 = 1/pow(t82,2.0);
    t118 = 1/t83;
    t119 = .0021294577333333*t1*t2*t3*t89*t84-.0044294311333333*
        t1*t2*t3*t89*t65+t116*t81*t117*t118-.9999999999999999*t91*
        t58*t92*t93;
    t120 = t67*t69*t70*t76*t119;
    t121 = t67*t69*t70*t108*t85;
    t122 = -4.0*t111*t67*t69*t76*t85;
    t123 = -1.0*t40*t44*t28*t45*rhoa+t56*(t99+t98+t94+4.0*
        t113*t67*t70*t76*t85+t122+t121+t120+t115+t110+t109)+t86+t80+
        t66+0.03109*t19*t28-.0021294577333333*t1*t2*t3*t19*t12;
    t124 = 1/pow(t52,3.0);
    t125 = -0.0059768*t21*t38*t54+4.770864e-4*t21*t38*t50*
        t53-2.6473536e-6*t21*t38*t51*t124;
    t126 = 1/pow(rhob,.6666666666666666);
    t127 = sqrt(rhob);
    t128 = pow(rhob,.3333333333333333);
    t129 = 1/t128;
    t130 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
        1.6831*t8*t9/t127+6.1977*t1*t2*t3*t129+0.62517*t4*t5*t6*t126;
    t131 = 32.1646831778707/
        t130+1.0;
    t132 = log(t131);
    t133 = 0.20548*t1*t2*t3*t129+1.0;
    t134 = t56*(t86+t80+t66)+0.03109*t132*t133*rhob+0.03109*
        t19*t28*rhoa;
    t135 = pow(gradb,4.0);
    t136 = 0.2*t48*t49+1.0;
    t137 = 1/pow(t136,2.0);
    t138 = 1/pow(rhob,5.333333333333333);
    t139 = 1/t136;
    t140 = 0.46974*t48*t139*t49-0.099472*t135*t137*t138+0.1737;
    t141 = 0.004*
        t48*t49+1.0;
    t142 = 1/pow(t141,2.0);
    t143 = 1/t141;
    t144 = 0.0020292*t48*t143*t49+1.19696e-5*t135*t142*t138+
        0.8094;
    t145 = pow(gradb,6.0);
    t146 = 1/pow(t136,3.0);
    t147 = 1/pow(rhob,9.0);
    t148 = 1/pow(rhob,6.333333333333333);
    t149 = 1/pow(rhob,3.666666666666667);
    t150 = -1.25264*t48*t139*t149+.7810453333333334*t135*
        t137*t148-.1061034666666667*t145*t146*t147;
    t151 = 1/t131;
    t152 = 1/pow(rhob,1.666666666666667);
    t153 = pow(rhob,1.333333333333333);
    t154 = 1/t153;
    t155 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
        0.84155*t8*t9/pow(t127,3.0)-2.0659*t1*t2*t3*t154-0.41678*t4*
        t5*t6*t152;
    t156 = 1/pow(t130,2.0);
    t157 = 1/pow(t141,3.0);
    t158 = -0.0054112*t48*t143*t149-4.219306666666666e-5*
        t135*t142*t148+2.553514666666666e-7*t145*t157*t147;
    t159 = t73+t101;
    t160 = t102+t105;
    t161 = 1.333333333333333*t107*t160+1.333333333333333*
        t104*t159;
    t162 = .0197517897025652*t67*t71*t72*t161*t79;
    t163 = 4.0*t113*t70+t112;
    t164 = .0197517897025652*t67*t163*t72*t76*t79;
    t165 = t67*t69*t70*t161*t85;
    t166 = -1.0*t151*t155*t133*t156*rhob+t56*(t99+t98+t94-
        4.0*t113*t67*t70*t76*t85+t165+t164+t162+t122+t120+t110)+t86+
        t80+t66+0.03109*t132*t133-.0021294577333333*t1*t2*t3*t132*
        t129;
    t167 = -0.0059768*t48*t54*t149+4.770864e-4*t48*t50*t53*
        t149-2.6473536e-6*t48*t51*t124*t149;
    t168 = pow(grada,5.0);
    t169 = 1/pow(rhoa,8.0);
    t170 = pow(grada,3.0);
    t171 = .9394800000000001*grada*t26*t22-.5857840000000001*
        t170*t24*t25+0.0795776*t168*t35*t169;
    t172 = 0.0040584*grada*t32*t22+3.16448e-5*t170*t31*t25-
        1.915136e-7*t168*t46*t169;
    t173 = 0.0044826*grada*t22*t54-3.578148e-4*grada*t22*
        t50*t53+1.9855152e-6*grada*t22*t51*t124;
    t174 = pow(gradb,5.0);
    t175 = 1/pow(rhob,8.0);
    t176 = pow(gradb,3.0);
    t177 = .9394800000000001*gradb*t139*t49-.5857840000000001*
        t176*t137*t138+0.0795776*t174*t146*t175;
    t178 = 0.0040584*gradb*t143*t49+3.16448e-5*t176*t142*
        t138-1.915136e-7*t174*t157*t175;
    t179 = 0.0044826*gradb*t54*t49-3.578148e-4*gradb*t50*
        t53*t49+1.9855152e-6*gradb*t51*t124*t49;
    t180 = pow(grada,8.0);
    t181 = 1/pow(t23,4.0);
    t182 = 1/pow(rhoa,12.66666666666667);
    t183 = 1/pow(rhoa,10.0);
    t184 = 1/pow(rhoa,7.333333333333333);
    t185 = 1/pow(rhoa,4.666666666666667);
    t186 = 4.593013333333333*t21*t26*t185-5.61469511111111*
        t20*t24*t184+1.788046222222222*t34*t35*t183-.1697655466666667*
        t180*t181*t182;
    t187 = 1/pow(t18,2.0);
    t188 = pow(t44,2.0);
    t189 = 1/pow(t17,4.0);
    t190 = 1/pow(t17,3.0);
    t191 = 1/pow(rhoa,2.333333333333333);
    t192 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
        1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22+
        2.754533333333333*t1*t2*t3*t191;
    t193 = 1/pow(t30,4.0);
    t194 = .0198410666666667*t21*t32*t185+2.095032888888889e-4*
        t20*t31*t184-3.198281955555555e-6*t34*t46*t183+8.171246933333332e-9*
        t180*t193*t182;
    t195 = 2.0*t91*t58*t92*t93;
    t196 = -1.169644679491041*t67*t71*t95*t72*t96*t76*t97;
    t197 = .0088588622666667*
        t1*t2*t3*t89*t65;
    t198 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t76*t79;
    t199 = 2.0*
        t119*t67*t69*t70*t76;
    t200 = -8.0*t111*t67*t69*t76*t85;
    t201 = pow(t91,2.0);
    t202 = 1/pow(t63,4.0);
    t203 = 1/pow(t64,2.0);
    t204 = 16.0818243221511*t201*t58*t202*t203;
    t205 = 1/pow(t63,3.0);
    t206 = -2.0*t201*t58*t205*t93;
    t207 = -.1424666666666666*t1*t2*t3*t89*t91*t92*t93;
    t208 = 1/
        pow(t56,2.666666666666667);
    t209 = 1/pow(t60,5.0);
    t210 = 1/pow(t56,2.333333333333333);
    t211 = 1/pow(t56,2.166666666666667);
    t212 = 1.476941666666667*t14*t15*t16*t211+1.594488888888889*
        t1*t2*t3*t210+0.614325*t8*t9*t209+0.547711111111111*t4*t5*
        t6*t208;
    t213 = .9999999999999999*t212*t58*t92*t93;
    t214 = pow(t95,2.0);
    t215 = 1/pow(t77,4.0);
    t216 = 1/pow(t78,2.0);
    t217 = -17.31575589937587*t67*t71*t214*t72*t215*t76*t216;
    t218 = -
        1.169644679491041*t67*t71*t95*t72*t96*t108*t97;
    t219 = 1/pow(t77,3.0);
    t220 = 1.169644679491041*t67*t71*t214*t72*t219*t76*t97;
    t221 = .0433743235311261*
        t67*t1*t2*t3*t89*t71*t95*t96*t76*t97;
    t222 = 2.013861111111111*t14*t15*t16*t211+1.610266666666667*
        t1*t2*t3*t210+0.3300975*t8*t9*t209+.5519000000000001*t4*t5*
        t6*t208;
    t223 = -.5848223397455204*t67*t71*t222*t72*t96*t76*t97;
    t224 = -
        1.169644679491041*t67*t114*t95*t72*t96*t76*t97;
    t225 = -.0059059081777778*t1*t2*t3*t210*t65;
    t226 = pow(t103,2.0);
    t227 = 1/pow(t74,.6666666666666666);
    t228 = 1/pow(t56,3.0);
    t229 = -2.0*t228*t68;
    t230 = 2.0*t100;
    t231 = t230+t229;
    t232 = pow(t106,2.0);
    t233 = 1/pow(t75,.6666666666666666);
    t234 = 2.0*t228*t68;
    t235 = -2.0*t100;
    t236 = t235+t234;
    t237 = 1.333333333333333*t107*t236+.4444444444444444*
        t232*t233+1.333333333333333*t104*t231+.4444444444444444*t226*
        t227;
    t238 = .0197517897025652*t67*t71*t72*t237*t79;
    t239 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t108*t79;
    t240 = .0395035794051304*
        t67*t114*t72*t108*t79;
    t241 = -.0014649244029403*t67*t1*t2*t3*t89*t114*t76*t79;
    t242 = 9.766162686268349e-4*t67*t1*t2*t3*t210*t71*t76*
        t79;
    t243 = 1/pow(t56,6.0);
    t244 = -20.0*t243*t69;
    t245 = pow(t68,2.0);
    t246 = -12.0*t245*t70;
    t247 = t246+t244+32.0*t111*t113;
    t248 = .0197517897025652*t67*t247*t72*t76*t79;
    t249 = pow(t116,2.0);
    t250 = 1/pow(t82,4.0);
    t251 = 1/pow(t83,2.0);
    t252 = 1/pow(t82,3.0);
    t253 = 2.745341666666667*t14*t15*t16*t211+2.754533333333333*
        t1*t2*t3*t210+1.262325*t8*t9*t209+.6946333333333333*t4*t5*
        t6*t208;
    t254 = .1424666666666666*t1*t2*t3*t89*t91*t92*t93-.9999999999999999*
        t212*t58*t92*t93+2.0*t201*t58*t205*t93-.0028392769777778*t1*
        t2*t3*t210*t84-2.0*t118*t249*t252*t81+.0059059081777778*t1*
        t2*t3*t210*t65+32.1646831778707*t249*t81*t250*t251-16.0818243221511*
        t201*t58*t202*t203+t253*t81*t117*t118-.1369866666666666*t1*
        t2*t3*t89*t116*t117*t118;
    t255 = t67*t69*t70*t76*t254;
    t256 = 2.0*t108*t119*t67*t69*t70;
    t257 = -8.0*t111*t119*t67*t69*t76;
    t258 = 8.0*t113*t119*t67*t70*t76;
    t259 = t67*t69*t70*t237*t85;
    t260 = -8.0*t108*t111*t67*t69*t85;
    t261 = 20.0*t243*t67*t69*t76*t85;
    t262 = -32.0*t111*t113*t67*t76*t85;
    t263 = 12.0*t245*t67*t70*t76*t85;
    t264 = -1.0*t40*t192*t28*t45*rhoa+2.0*t40*t188*t28*t190*
        rhoa-32.1646831778707*t187*t188*t28*t189*rhoa+t56*(8.0*t108*
        t113*t67*t70*t85+t263+t262+t261+t260+t259+t258+t257+t256+t255+
        t248+t242+t241+t240+t239+t238+t225+t224+t223+t221+t220+t218+
        t217+t213+t207+t206+t204)+8.0*t113*t67*t70*t76*t85+2.0*t108*
        t67*t69*t70*t85+.0395035794051304*t67*t114*t72*t76*t79+.0395035794051304*
        t67*t71*t72*t108*t79-2.0*t40*t44*t28*t45-.0014196384888889*
        t1*t2*t3*t19*t43+t200+t199+t198+t197+t196+t195+.1369866666666666*
        t1*t2*t3*t40*t44*t45*t12;
    t265 = 1/pow(t52,4.0);
    t266 = .0219149333333333*t21*t185*t54-0.0017493168*t21*
        t185*t50*t53-6.839295999999999e-4*t20*t184*t53+9.706963200000001e-6*
        t21*t185*t51*t124+1.4692992e-5*t20*t184*t50*t124-6.35364864e-8*
        t20*t184*t51*t265;
    t267 = 2.666666666666667*t107*t228*t68-2.666666666666667*
        t104*t228*t68+.4444444444444444*t106*t160*t233+.4444444444444444*
        t103*t159*t227;
    t268 = 12.0*t245*t70+t244;
    t269 = -12.0*t245*t67*t70*t76*t85;
    t270 = t56*(-.5848223397455204*t67*t163*t95*t72*t96*t76*
        t97-.5848223397455204*t67*t114*t95*t72*t96*t76*t97-.5848223397455204*
        t67*t71*t95*t72*t96*t161*t97-.5848223397455204*t67*t71*t95*
        t72*t96*t108*t97+4.0*t113*t161*t67*t70*t85-4.0*t108*t113*t67*
        t70*t85-4.0*t111*t161*t67*t69*t85-4.0*t108*t111*t67*t69*t85+
        t67*t69*t70*t267*t85+.0197517897025652*t67*t268*t72*t76*t79-
        7.324622014701263e-4*t67*t1*t2*t3*t89*t163*t76*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t114*t76*t79+.0197517897025652*t67*t71*t72*
        t267*t79+.0197517897025652*t67*t114*t72*t161*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t71*t161*t79+.0197517897025652*t67*t163*t72*
        t108*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t108*t79+
        t269+t261+t257+t255+t242+t225+t223+t221+t220+t217+t213+t207+
        t206+t204+t67*t69*t70*t161*t119+t67*t69*t70*t108*t119)+t200+
        t199+t198+t197+t196+t195+t165+t164+t162+t121+t115+t109;
    t271 = -6.839295999999999e-4*t21*t48*t38*t53*t149+1.4692992e-5*
        t21*t48*t38*t50*t124*t149-6.35364864e-8*t21*t48*t38*t51*t265*
        t149;
    t272 = pow(grada,7.0);
    t273 = 1/pow(rhoa,11.66666666666667);
    t274 = -2.50528*grada*t26*t38+3.625237333333334*t170*
        t24*t37-1.261457066666667*t168*t35*t36+0.12732416*t272*t181*
        t273;
    t275 = -0.0108224*grada*t32*t38-1.254826666666667e-4*
        t170*t31*t37+2.207197866666666e-6*t168*t46*t36-6.128435199999999e-9*
        t272*t193*t273;
    t276 = -0.0119536*grada*t38*t54+9.541727999999999e-4*
        grada*t38*t50*t53+5.129471999999999e-4*t170*t37*t53-5.294707200000001e-6*
        grada*t38*t51*t124-1.1019744e-5*t170*t37*t50*t124+4.76523648e-8*
        t170*t37*t51*t265;
    t277 = 5.129471999999999e-4*t21*gradb*t38*t53*t49-1.1019744e-5*
        t21*gradb*t38*t50*t124*t49+4.76523648e-8*t21*gradb*t38*t51*
        t265*t49;
    t278 = pow(gradb,8.0);
    t279 = 1/pow(t136,4.0);
    t280 = 1/pow(rhob,12.66666666666667);
    t281 = 1/pow(rhob,10.0);
    t282 = 1/pow(rhob,7.333333333333333);
    t283 = 1/pow(rhob,4.666666666666667);
    t284 = 4.593013333333333*t48*t139*t283-5.61469511111111*
        t135*t137*t282+1.788046222222222*t145*t146*t281-.1697655466666667*
        t278*t279*t280;
    t285 = 1/pow(t131,2.0);
    t286 = pow(t155,2.0);
    t287 = 1/pow(t130,4.0);
    t288 = 1/pow(t130,3.0);
    t289 = 1/pow(rhob,2.333333333333333);
    t290 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
        1.262325*t8*t9/pow(t127,5.0)+.6946333333333333*t4*t5*t6*t49+
        2.754533333333333*t1*t2*t3*t289;
    t291 = 1/pow(t141,4.0);
    t292 = .0198410666666667*t48*t143*t283+2.095032888888889e-4*
        t135*t142*t282-3.198281955555555e-6*t145*t157*t281+8.171246933333332e-9*
        t278*t291*t280;
    t293 = -1.169644679491041*t67*t71*t95*t72*t96*t161*t97;
    t294 = -
        1.169644679491041*t67*t163*t95*t72*t96*t76*t97;
    t295 = pow(t159,2.0);
    t296 = t235+t229;
    t297 = pow(t160,2.0);
    t298 = t230+t234;
    t299 = 1.333333333333333*t107*t298+.4444444444444444*
        t233*t297+1.333333333333333*t104*t296+.4444444444444444*t227*
        t295;
    t300 = .0197517897025652*t67*t71*t72*t299*t79;
    t301 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t161*t79;
    t302 = .0395035794051304*
        t67*t163*t72*t161*t79;
    t303 = -.0014649244029403*t67*t1*t2*t3*t89*t163*t76*t79;
    t304 = t246+
        t244-32.0*t111*t113;
    t305 = .0197517897025652*t67*t304*t72*t76*t79;
    t306 = 2.0*t119*t161*t67*t69*t70;
    t307 = -8.0*t113*t119*t67*t70*t76;
    t308 = t67*t69*t70*t299*t85;
    t309 = -8.0*t111*t161*t67*t69*t85;
    t310 = 32.0*t111*t113*t67*t76*t85;
    t311 = 2.0*t151*t286*t133*t288*rhob-32.1646831778707*
        t285*t286*t133*t287*rhob-1.0*t151*t290*t133*t156*rhob+t56*
        (-8.0*t113*t161*t67*t70*t85+t310+t309+t308+t307+t306+t305+
        t303+t302+t301+t300+t294+t293+t263+t261+t257+t255+t242+t225+
        t223+t221+t220+t217+t213+t207+t206+t204)-8.0*t113*t67*t70*
        t76*t85+2.0*t161*t67*t69*t70*t85+.0395035794051304*t67*t163*
        t72*t76*t79+.0395035794051304*t67*t71*t72*t161*t79+t200+t199+
        t198+t197+t196+t195-2.0*t151*t155*t133*t156-.0014196384888889*
        t1*t2*t3*t132*t154+.1369866666666666*t1*t2*t3*t151*t155*t156*
        t129;
    t312 = .0219149333333333*t48*t54*t283-0.0017493168*t48*
        t50*t53*t283+9.706963200000001e-6*t48*t51*t124*t283-6.839295999999999e-4*
        t135*t53*t282+1.4692992e-5*t135*t50*t124*t282-6.35364864e-8*
        t135*t51*t265*t282;
    t313 = 5.129471999999999e-4*grada*t48*t22*t53*t149-1.1019744e-5*
        grada*t48*t22*t50*t124*t149+4.76523648e-8*grada*t48*t22*t51*
        t265*t149;
    t314 = pow(gradb,7.0);
    t315 = 1/pow(rhob,11.66666666666667);
    t316 = -2.50528*gradb*t139*t149+3.625237333333334*t176*
        t137*t148-1.261457066666667*t174*t146*t147+0.12732416*t314*
        t279*t315;
    t317 = -0.0108224*gradb*t143*t149-1.254826666666667e-4*
        t176*t142*t148+2.207197866666666e-6*t174*t157*t147-6.128435199999999e-9*
        t314*t291*t315;
    t318 = -0.0119536*gradb*t54*t149+9.541727999999999e-4*
        gradb*t50*t53*t149-5.294707200000001e-6*gradb*t51*t124*t149+
        5.129471999999999e-4*t176*t53*t148-1.1019744e-5*t176*t50*t124*
        t148+4.76523648e-8*t176*t51*t265*t148;
    t319 = 1/pow(rhoa,10.66666666666667);
    t320 = .9394800000000001*t26*t22-2.133144*t21*t24*t25+
        .8665152000000003*t20*t35*t169-0.09549312*t34*t181*t319;
    t321 = 0.0040584*
        t32*t22+6.246719999999999e-5*t21*t31*t25-1.4638848e-6*t20*
        t46*t169+4.5963264e-9*t34*t193*t319;
    t322 = 0.0044826*t22*t54-3.578148e-4*t22*t50*t53-3.847104000000001e-4*
        t21*t25*t53+1.9855152e-6*t22*t51*t124+8.264808e-6*t21*t25*
        t50*t124-3.57392736e-8*t21*t25*t51*t265;
    t323 = -3.847104000000001e-4*grada*gradb*t22*t53*t49+
        8.264808e-6*grada*gradb*t22*t50*t124*t49-3.57392736e-8*grada*
        gradb*t22*t51*t265*t49;
    t324 = 1/pow(rhob,10.66666666666667);
    t325 = .9394800000000001*t139*t49-2.133144*t48*t137*t138+
        .8665152000000003*t135*t146*t175-0.09549312*t145*t279*t324;
    t326 = 0.0040584*
        t143*t49+6.246719999999999e-5*t48*t142*t138-1.4638848e-6*t135*
        t157*t175+4.5963264e-9*t145*t291*t324;
    t327 = 0.0044826*t54*t49-3.578148e-4*t50*t53*t49+1.9855152e-6*
        t51*t124*t49-3.847104000000001e-4*t48*t53*t138+8.264808e-6*
        t48*t50*t124*t138-3.57392736e-8*t48*t51*t265*t138;
    t328 = pow(grada,10.0);
    t329 = 1/pow(t23,5.0);
    t330 = 1/pow(rhoa,16.33333333333333);
    t331 = 1/pow(rhoa,13.66666666666667);
    t332 = 1/pow(rhoa,11.0);
    t333 = 1/pow(rhoa,8.333333333333334);
    t334 = 1/pow(rhoa,5.666666666666667);
    t335 = 1/pow(t18,3.0);
    t336 = pow(t44,3.0);
    t337 = 1/pow(t17,6.0);
    t338 = 1/pow(t17,5.0);
    t339 = -6.427244444444445*t1*t2*t3/pow(rhoa,3.333333333333333)-
        5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
        3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t38;
    t340 = 1/
        pow(t30,5.0);
    t341 = 48.2454729664533*t201*t58*t202*t203;
    t342 = -6.0*t201*t58*t205*t93;
    t343 = -.4273999999999999*t1*t2*t3*t89*t91*t92*t93;
    t344 = 3.0*
        t212*t58*t92*t93;
    t345 = -51.9472676981276*t67*t71*t214*t72*t215*t76*t216;
    t346 = 3.508934038473122*
        t67*t71*t214*t72*t219*t76*t97;
    t347 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
        t76*t97;
    t348 = -1.754467019236561*t67*t71*t222*t72*t96*t76*t97;
    t349 = -
        .0177177245333333*t1*t2*t3*t210*t65;
    t350 = .0029298488058805*t67*t1*t2*t3*t210*t71*t76*t79;
    t351 = 3.0*
        t254*t67*t69*t70*t76;
    t352 = -24.0*t111*t119*t67*t69*t76;
    t353 = 60.0*t243*t67*t69*t76*t85;
    t354 = 36.0*t245*t67*t70*t76*t85;
    t355 = pow(t91,3.0);
    t356 = 1/pow(t63,6.0);
    t357 = 1/pow(t64,3.0);
    t358 = 517.2501470570614*t355*t58*t356*t357;
    t359 = 1/pow(t63,5.0);
    t360 = -96.4909459329066*t355*t58*t359*t203;
    t361 = -3.43668585764369*t1*t2*t3*t89*t201*t202*t203;
    t362 = 48.2454729664533*
        t212*t91*t58*t202*t203;
    t363 = 6.0*t355*t58*t202*t93;
    t364 = .4273999999999999*t1*t2*t3*t89*t201*t205*t93;
    t365 = -
        6.0*t212*t91*t58*t205*t93;
    t366 = -0.2137*t1*t2*t3*t89*t212*t92*t93;
    t367 = .2849333333333333*t1*t2*t3*t210*t91*t92*t93;
    t368 = 1/
        pow(t56,3.666666666666667);
    t369 = 1/pow(t60,7.0);
    t370 = 1/pow(t56,3.333333333333333);
    t371 = 1/pow(t56,3.166666666666667);
    t372 = -3.200040277777777*t14*t15*t16*t371-3.720474074074074*
        t1*t2*t3*t370-1.5358125*t8*t9*t369-1.460562962962963*t4*t5*
        t6*t368;
    t373 = .9999999999999999*t372*t58*t92*t93;
    t374 = pow(t95,3.0);
    t375 = -1025.38970210078*t374*t67*t71*t72*t76/(pow(t77,
        6.0)*pow(t78,3.0));
    t376 = 103.8945353962552*t216*t374*t67*t71*t72*t76/pow(t77,
        5.0);
    t377 = 1.926377843805565*t67*t1*t2*t3*t89*t71*t214*t215*
        t76*t216;
    t378 = -51.9472676981276*t67*t71*t222*t95*t72*t215*t76*
        t216;
    t379 = -3.508934038473122*t67*t71*t374*t72*t215*t76*t97;
    t380 = -
        .1301229705933783*t67*t1*t2*t3*t89*t71*t214*t219*t76*t97;
    t381 = 3.508934038473122*
        t67*t71*t222*t95*t72*t219*t76*t97;
    t382 = .0650614852966891*t67*t1*t2*t3*t89*t71*t222*t96*
        t76*t97;
    t383 = -.0867486470622522*t67*t1*t2*t3*t210*t71*t95*t96*
        t76*t97;
    t384 = -.5848223397455204*t67*t71*(-4.36336574074074*
        t14*t15*t16*t371-3.757288888888889*t1*t2*t3*t370-0.82524375*
        t8*t9*t369-1.471733333333333*t4*t5*t6*t368)*t72*t96*t76*t97;
    t385 = .0137804524148148*
        t1*t2*t3*t370*t65;
    t386 = 1/pow(t74,1.666666666666667);
    t387 = 6.0*t68*t70;
    t388 = -6.0*t228;
    t389 = 1/pow(t75,1.666666666666667);
    t390 = -6.0*t68*t70;
    t391 = 6.0*t228;
    t392 = 1.333333333333333*t107*(t391+t390)-.2962962962962963*
        pow(t106,3.0)*t389+1.333333333333333*t104*(t388+t387)-.2962962962962963*
        pow(t103,3.0)*t386+1.333333333333333*t106*t233*t236+1.333333333333333*
        t103*t227*t231;
    t393 = -.0022787712934626*t67*t1*t2*t3*t370*t71*t76*t79;
    t394 = 1/
        pow(t56,7.0);
    t395 = 120.0*t394*t69;
    t396 = 144.0*t111*t245;
    t397 = -24.0*t68*t70;
    t398 = pow(t116,3.0);
    t399 = t67*t69*t70*t76*(-.2849333333333333*t1*t2*t3*t210*
        t91*t92*t93-.9999999999999999*t372*t58*t92*t93+0.2137*t1*t2*
        t3*t89*t212*t92*t93+6.0*t212*t91*t58*t205*t93-.4273999999999999*
        t1*t2*t3*t89*t201*t205*t93-6.0*t355*t58*t202*t93+.0066249796148148*
        t1*t2*t3*t370*t84+2069.133687865597*t398*t81/(pow(t82,6.0)*
        pow(t83,3.0))-192.9880990672242*t251*t398*t81/pow(t82,5.0)+
        6.0*t118*t250*t398*t81-6.0*t116*t118*t252*t253*t81-.0137804524148148*
        t1*t2*t3*t370*t65-517.2501470570614*t355*t58*t356*t357+96.4940495336121*
        t253*t116*t81*t250*t251-6.60919909938887*t1*t2*t3*t89*t249*
        t250*t251+96.4909459329066*t355*t58*t359*t203-48.2454729664533*
        t212*t91*t58*t202*t203+3.43668585764369*t1*t2*t3*t89*t201*
        t202*t203+.4109599999999999*t1*t2*t3*t89*t249*t252*t118+(-
        5.948240277777777*t14*t15*t16*t371-6.427244444444445*t1*t2*
        t3*t370-3.1558125*t8*t9*t369-1.852355555555556*t4*t5*t6*t368)*
        t81*t117*t118-0.20548*t1*t2*t3*t89*t253*t117*t118+.2739733333333333*
        t1*t2*t3*t210*t116*t117*t118);
    t400 = -12.0*t111*t254*t67*t69*t76;
    t401 = 60.0*t119*t243*t67*t69*t76;
    t402 = 36.0*t119*t245*t67*t70*t76;
    t403 = -120.0*t394*t67*t69*t76*t85;
    t404 = -144.0*t111*t245*t67*t76*t85;
    t405 = 24.0*t67*t68*t70*t76*t85;
    t406 = 1/pow(t52,5.0);
    t407 = .0395035794051304*t67*t71*t72*t267*t79;
    t408 = .0395035794051304*t67*t114*t72*t161*t79;
    t409 = .0395035794051304*t67*t163*t72*t108*t79;
    t410 = .0395035794051304*t67*t268*t72*t76*t79;
    t411 = 2.0*t267*t67*t69*t70*t85;
    t412 = -1.169644679491041*t67*t71*t95*t72*t96*t267*t97;
    t413 = -
        1.169644679491041*t67*t114*t95*t72*t96*t161*t97;
    t414 = -1.169644679491041*t67*t163*t95*t72*t96*t108*t97;
    t415 = -
        1.169644679491041*t67*t268*t95*t72*t96*t76*t97;
    t416 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t267*t79;
    t417 = 1.777777777777778*
        t106*t228*t233*t68-1.777777777777778*t103*t227*t228*t68+1.333333333333333*
        t107*(t390+2.0*t228)-.2962962962962963*t160*t232*t389+1.333333333333333*
        t104*(t387-2.0*t228)-.2962962962962963*t159*t226*t386+.4444444444444444*
        t160*t233*t236+.4444444444444444*t159*t227*t231;
    t418 = -.0014649244029403*t67*t1*t2*t3*t89*t114*t161*
        t79;
    t419 = -.0014649244029403*t67*t1*t2*t3*t89*t163*t108*
        t79;
    t420 = -.0014649244029403*t67*t1*t2*t3*t89*t268*t76*t79;
    t421 = -
        48.0*t111*t245;
    t422 = 24.0*t68*t70;
    t423 = 2.0*t119*t267*t67*t69*t70;
    t424 = -12.0*t119*t245*t67*t70*t76;
    t425 = -8.0*t111*t267*t67*t69*t85;
    t426 = 48.0*t111*t245*t67*t76*t85;
    t427 = -24.0*t67*t68*t70*t76*t85;
    t428 = pow(grada,9.0);
    t429 = 1/pow(rhoa,15.33333333333333);
    t430 = -8.0*t107*t68*t70+8.0*t104*t68*t70+1.777777777777778*
        t160*t228*t233*t68-1.777777777777778*t159*t227*t228*t68-.2962962962962963*
        t106*t297*t389-.2962962962962963*t103*t295*t386+.4444444444444444*
        t106*t233*t298+.4444444444444444*t103*t227*t296-2.666666666666667*
        t107*t228+2.666666666666667*t104*t228;
    t431 = 1/pow(rhoa,14.33333333333333);
    t432 = pow(gradb,10.0);
    t433 = 1/pow(t136,5.0);
    t434 = 1/pow(rhob,16.33333333333333);
    t435 = 1/pow(rhob,13.66666666666667);
    t436 = 1/pow(rhob,11.0);
    t437 = 1/pow(rhob,8.333333333333334);
    t438 = 1/pow(rhob,5.666666666666667);
    t439 = 1/pow(t131,3.0);
    t440 = pow(t155,3.0);
    t441 = 1/pow(t130,6.0);
    t442 = 1/pow(t130,5.0);
    t443 = -6.427244444444445*t1*t2*t3/pow(rhob,3.333333333333333)-
        5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
        3.1558125*t8*t9/pow(t127,7.0)-1.852355555555556*t4*t5*t6*t149;
    t444 = 1/
        pow(t141,5.0);
    t445 = 1.333333333333333*t104*(t391+t387)-.2962962962962963*
        pow(t160,3.0)*t389+1.333333333333333*t107*(t388+t390)-.2962962962962963*
        pow(t159,3.0)*t386+1.333333333333333*t160*t233*t298+1.333333333333333*
        t159*t227*t296;
    t446 = pow(gradb,9.0);
    t447 = 1/pow(rhob,15.33333333333333);
    t448 = 1/pow(rhob,14.33333333333333);
    t449 = 1/pow(rhoa,13.33333333333333);
    t450 = 1/pow(rhob,13.33333333333333);

   /* code */
    dfdra = t40*t27*t44*t28*t45*rhoa-0.03109*t19*t39*t28*
        rhoa-0.75*t29*t3*t42*t47-1.0*t11*t29*t3*t33-0.03109*t19*t27*
        t28+t125*t134+t55*t123+.0021294577333333*t1*t2*t3*t19*t27*
        t12;
    dfdrb = t151*t140*t155*t133*t156*rhob-0.03109*t132*t150*
        t133*rhob-0.75*t153*t158*t29*t3-1.0*t128*t144*t29*t3+t55*t166+
        t167*t134-0.03109*t132*t140*t133+.0021294577333333*t1*t2*t3*
        t132*t140*t129;
    dfdga = -0.03109*t19*t171*t28*rhoa-0.75*t172*t29*t3*t42+
        t173*t134;
    dfdgb = -0.03109*t132*t177*t133*rhob-0.75*t153*t178*t29*
        t3+t179*t134;
    dfdgab = 0.0;
    d2fdrara = 2.0*t28*t39*t40*t44*t45*rhoa+t40*t27*t192*
        t28*t45*rhoa-2.0*t188*t190*t27*t28*t40*rhoa-0.03109*t19*t186*
        t28*rhoa+32.1646831778707*t187*t27*t188*t28*t189*rhoa-.3333333333333333*
        t29*t3*t33*t7-2.0*t11*t29*t3*t47+2.0*t27*t28*t40*t44*t45+.0014196384888889*
        t1*t2*t3*t19*t27*t43-0.75*t194*t29*t3*t42-0.06218*t19*t39*
        t28+t55*t264+t266*t134+2.0*t123*t125-.1369866666666666*t1*
        t2*t3*t40*t27*t44*t45*t12+.0042589154666667*t1*t2*t3*t19*t39*
        t12;
    d2fdrarb = t271*t134+t167*t123+t125*t166+t55*t270;
    d2fdraga = t40*t171*t44*t28*t45*rhoa-0.03109*t19*t274*
        t28*rhoa-0.75*t275*t29*t3*t42-1.0*t11*t172*t29*t3-0.03109*
        t19*t171*t28+t276*t134+t173*t123+.0021294577333333*t1*t2*t3*
        t19*t171*t12;
    d2fdragb = t277*t134+t179*t123;
    d2fdraab = 0.0;
    d2fdrbrb = -2.0*t133*t140*t151*t286*t288*rhob+32.1646831778707*
        t285*t140*t286*t133*t287*rhob+2.0*t133*t150*t151*t155*t156*
        rhob+t151*t140*t290*t133*t156*rhob-0.03109*t132*t284*t133*
        rhob+t55*t311-0.75*t153*t29*t292*t3-2.0*t128*t158*t29*t3-.3333333333333333*
        t126*t144*t29*t3+2.0*t166*t167+2.0*t133*t140*t151*t155*t156+
        .0014196384888889*t1*t2*t3*t132*t140*t154+t312*t134-0.06218*
        t132*t150*t133-.1369866666666666*t1*t2*t3*t151*t140*t155*t156*
        t129+.0042589154666667*t1*t2*t3*t132*t150*t129;
    d2fdrbga = t313*t134+t173*t166;
    d2fdrbgb = t151*t177*t155*t133*t156*rhob-0.03109*t132*
        t316*t133*rhob-0.75*t153*t29*t3*t317-1.0*t128*t178*t29*t3+
        t179*t166+t318*t134-0.03109*t132*t177*t133+.0021294577333333*
        t1*t2*t3*t132*t177*t129;
    d2fdrbgab = 0.0;
    d2fdgaga = -0.03109*t19*t320*t28*rhoa-0.75*t29*t3*t321*
        t42+t322*t134;
    d2fdgagb = t323*t134;
    d2fdgagab = 0.0;
    d2fdgbgb = -0.03109*t132*t325*t133*rhob-0.75*t153*t29*
        t3*t326+t327*t134;
    d2fdgbgab = 0.0;
    d2fdgabgab = 0.0;
    d3fdrarara = t55*(-1.0*t40*t339*t28*t45*rhoa+192.9880990672242*
        t187*t336*t28*t338*rhoa-2069.133687865597*t335*t336*t28*t337*
        rhoa+6.0*t40*t192*t44*t28*t190*rhoa-96.4940495336121*t187*
        t192*t44*t28*t189*rhoa-6.0*t40*t336*t28*t189*rhoa+t56*(.1301229705933783*
        t67*t1*t2*t3*t89*t114*t95*t96*t76*t97-1.754467019236561*t67*
        t247*t95*t72*t96*t76*t97-1.754467019236561*t67*t114*t222*t72*
        t96*t76*t97+3.508934038473122*t67*t114*t214*t72*t219*t76*t97-
        1.754467019236561*t67*t71*t95*t72*t96*t237*t97+.1301229705933783*
        t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-3.508934038473122*t67*
        t114*t95*t72*t96*t108*t97-1.754467019236561*t67*t71*t222*t72*
        t96*t108*t97+3.508934038473122*t67*t71*t214*t72*t219*t108*
        t97+240.0*t113*t243*t67*t76*t85+36.0*t108*t245*t67*t70*t85+
        12.0*t113*t237*t67*t70*t85+60.0*t108*t243*t67*t69*t85-12.0*
        t111*t237*t67*t69*t85-96.0*t108*t111*t113*t67*t85+t67*t69*
        t70*t392*t85+.0197517897025652*(t397+t396+t395-240.0*t113*
        t243)*t67*t72*t76*t79-.0021973866044104*t67*t1*t2*t3*t89*t247*
        t76*t79+.0029298488058805*t67*t1*t2*t3*t210*t114*t76*t79+.0197517897025652*
        t67*t71*t72*t392*t79+.0592553691076956*t67*t114*t72*t237*t79-
        .0021973866044104*t67*t1*t2*t3*t89*t71*t237*t79+.0592553691076956*
        t67*t247*t72*t108*t79+.0029298488058805*t67*t1*t2*t3*t210*
        t71*t108*t79-.0043947732088208*t67*t1*t2*t3*t89*t114*t108*
        t79+12.0*t113*t254*t67*t70*t76-96.0*t111*t113*t119*t67*t76+
        3.0*t108*t254*t67*t69*t70+3.0*t119*t237*t67*t69*t70+24.0*t108*
        t113*t119*t67*t70-24.0*t108*t111*t119*t67*t69+t405+t404+t403+
        t402+t401+t400+t399+t393+t385+t384+t383+t382+t381+t380+t379+
        t378+t377+t376+t375+t373+t367+t366+t365+t364+t363+t362+t361+
        t360+t358-51.9472676981276*t67*t114*t214*t72*t215*t76*t216-
        51.9472676981276*t67*t71*t214*t72*t215*t108*t216)-3.508934038473122*
        t67*t114*t95*t72*t96*t76*t97-3.508934038473122*t67*t71*t95*
        t72*t96*t108*t97-96.0*t111*t113*t67*t76*t85+3.0*t237*t67*t69*
        t70*t85+24.0*t108*t113*t67*t70*t85-24.0*t108*t111*t67*t69*
        t85+.0592553691076956*t67*t247*t72*t76*t79-.0043947732088208*
        t67*t1*t2*t3*t89*t114*t76*t79+.0592553691076956*t67*t71*t72*
        t237*t79+.1185107382153912*t67*t114*t72*t108*t79-.0043947732088208*
        t67*t1*t2*t3*t89*t71*t108*t79+24.0*t113*t119*t67*t70*t76+6.0*
        t108*t119*t67*t69*t70-3.0*t40*t192*t28*t45+.1369866666666666*
        t1*t2*t3*t40*t44*t45*t43+t354+t353+t352+t351+t350+t349+t348+
        t347+t346+t345+t344+t343+t342+t341+.0018928513185185*t1*t2*
        t3*t19*t191+6.0*t40*t188*t28*t190-96.4940495336121*t187*t188*
        t28*t189+0.20548*t1*t2*t3*t40*t192*t45*t12-.4109599999999999*
        t1*t2*t3*t40*t188*t190*t12+6.60919909938887*t1*t2*t3*t187*
        t188*t189*t12)+3.0*t186*t28*t40*t44*t45*rhoa+3.0*t192*t28*
        t39*t40*t45*rhoa+t40*t339*t27*t28*t45*rhoa-6.0*t190*t192*t27*
        t28*t40*t44*rhoa-6.0*t188*t190*t28*t39*t40*rhoa+6.0*t189*t27*
        t28*t336*t40*rhoa-192.9880990672242*t187*t27*t336*t28*t338*
        rhoa+2069.133687865597*t335*t27*t336*t28*t337*rhoa-0.03109*
        t19*(-21.43406222222222*t21*t26*t334+43.62403792592593*t20*
        t24*t333-23.86947034074074*t34*t35*t332+5.011237546666668*
        t180*t181*t331-.3621664995555556*t328*t329*t330)*t28*rhoa+
        96.4940495336121*t187*t27*t192*t44*t28*t189*rhoa+96.4940495336121*
        t187*t39*t188*t28*t189*rhoa-1.0*t29*t3*t47*t7+3.0*t192*t27*
        t28*t40*t45+6.0*t40*t39*t44*t28*t45-.1369866666666666*t1*t2*
        t3*t40*t27*t44*t45*t43+.0042589154666667*t1*t2*t3*t19*t39*
        t43-0.75*t29*t3*(-.0925916444444444*t21*t32*t334-.0013247194074074*
        t20*t31*t333+3.645222305185185e-5*t34*t46*t332-2.058474837333333e-7*
        t180*t193*t331+3.48639869155556e-10*t328*t340*t330)*t42+.2222222222222222*
        t29*t3*t33*t41-6.0*t188*t190*t27*t28*t40-3.0*t11*t194*t29*
        t3-0.09327*t19*t186*t28+3.0*t123*t266+3.0*t125*t264-.0018928513185185*
        t1*t2*t3*t19*t27*t191+96.4940495336121*t187*t27*t188*t28*t189+
        (-.1022696888888889*t21*t334*t54+0.0081634784*t21*t334*t50*
        t53+0.0075232256*t20*t333*t53-4.52991616e-5*t21*t334*t51*t124-
        1.61622912e-4*t20*t333*t50*t124-3.05335296e-5*t34*t332*t124+
        6.989013504000001e-7*t20*t333*t51*t265+5.220624384000001e-7*
        t34*t332*t50*t265-2.0331675648e-9*t34*t332*t51*t406)*t134-
        .4109599999999999*t1*t2*t3*t40*t39*t44*t45*t12-0.20548*t1*
        t2*t3*t40*t27*t192*t45*t12+.4109599999999999*t1*t2*t3*t40*
        t27*t188*t190*t12-6.60919909938887*t1*t2*t3*t187*t27*t188*
        t189*t12+0.0063883732*t1*t2*t3*t19*t186*t12;
    d3fdrararb = t55*(t56*(.0433743235311261*t67*t1*t2*t3*
        t89*t163*t95*t96*t76*t97+.0867486470622522*t67*t1*t2*t3*t89*
        t114*t95*t96*t76*t97-.5848223397455204*t67*t247*t95*t72*t96*
        t76*t97-.5848223397455204*t67*t163*t222*t72*t96*t76*t97-1.169644679491041*
        t67*t114*t222*t72*t96*t76*t97+1.169644679491041*t67*t163*t214*
        t72*t219*t76*t97+2.339289358982082*t67*t114*t214*t72*t219*
        t76*t97-.5848223397455204*t67*t71*t95*t72*t96*t237*t97+.0433743235311261*
        t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-.5848223397455204*t67*
        t71*t222*t72*t96*t161*t97+1.169644679491041*t67*t71*t214*t72*
        t219*t161*t97+.0867486470622522*t67*t1*t2*t3*t89*t71*t95*t96*
        t108*t97-1.169644679491041*t67*t114*t95*t72*t96*t108*t97-1.169644679491041*
        t67*t71*t222*t72*t96*t108*t97+2.339289358982082*t67*t71*t214*
        t72*t219*t108*t97+80.0*t113*t243*t67*t76*t85+8.0*t113*t267*
        t67*t70*t85+12.0*t161*t245*t67*t70*t85-24.0*t108*t245*t67*
        t70*t85-4.0*t113*t237*t67*t70*t85+20.0*t161*t243*t67*t69*t85+
        40.0*t108*t243*t67*t69*t85-4.0*t111*t237*t67*t69*t85-32.0*
        t111*t113*t161*t67*t85+t67*t69*t70*t417*t85+.0197517897025652*
        (t422+t421+t395-80.0*t113*t243)*t67*t72*t76*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t247*t76*t79+9.766162686268349e-4*t67*t1*
        t2*t3*t210*t163*t76*t79+.0019532325372537*t67*t1*t2*t3*t210*
        t114*t76*t79+.0197517897025652*t67*t71*t72*t417*t79+.0395035794051304*
        t67*t114*t72*t267*t79+.0197517897025652*t67*t163*t72*t237*
        t79-7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t237*t79+.0197517897025652*
        t67*t247*t72*t161*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
        t71*t161*t79+.0395035794051304*t67*t268*t72*t108*t79+.0019532325372537*
        t67*t1*t2*t3*t210*t71*t108*t79-.0014649244029403*t67*t1*t2*
        t3*t89*t114*t108*t79+4.0*t113*t254*t67*t70*t76-32.0*t111*t113*
        t119*t67*t76+2.0*t108*t254*t67*t69*t70+8.0*t113*t119*t161*
        t67*t70-8.0*t111*t119*t161*t67*t69-16.0*t108*t111*t119*t67*
        t69+t427+t426+t425+t424+t423+t420+t419+t418+t416+t415+t414+
        t413+t412+t403+t401+t400+t399+t393+t385+t384+t383+t382+t381+
        t380+t379+t378+t377+t376+t375+t373+t367+t366+t365+t364+t363+
        t362+t361+t360+t358+t67*t69*t70*t161*t254-17.31575589937587*
        t67*t163*t214*t72*t215*t76*t216-34.63151179875173*t67*t114*
        t214*t72*t215*t76*t216-17.31575589937587*t67*t71*t214*t72*
        t215*t161*t216-34.63151179875173*t67*t71*t214*t72*t215*t108*
        t216+t67*t69*t70*t237*t119)-2.339289358982082*t67*t114*t95*
        t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t108*
        t97+8.0*t113*t161*t67*t70*t85-16.0*t108*t111*t67*t69*t85-.0029298488058805*
        t67*t1*t2*t3*t89*t114*t76*t79-.0029298488058805*t67*t1*t2*
        t3*t89*t71*t108*t79+4.0*t108*t119*t67*t69*t70+t411+t410+t409+
        t408+t407+t353+t352+t351+t350+t349+t348+t347+t346+t345+t344+
        t343+t342+t341+t309+t306+t303+t301+t294+t293+t269+t262+t259+
        t258+t248+t240+t238)+2.0*t123*t271+2.0*t125*t270+t167*t264+
        t266*t166+(.0025077418666667*t21*t48*t185*t53*t149-5.3874304e-5*
        t21*t48*t185*t50*t124*t149-3.05335296e-5*t20*t48*t184*t124*
        t149+2.329671168e-7*t21*t48*t185*t51*t265*t149+5.220624384000001e-7*
        t20*t48*t184*t50*t265*t149-2.0331675648e-9*t20*t48*t184*t51*
        t406*t149)*t134;
    d3fdraraga = 2.0*t274*t28*t40*t44*t45*rhoa+t40*t171*t192*
        t28*t45*rhoa-2.0*t171*t188*t190*t28*t40*rhoa-0.03109*t19*(9.186026666666667*
        grada*t26*t185-24.29598577777778*t170*t24*t184+15.22003342222222*
        t168*t35*t183-3.503779840000001*t272*t181*t182+.2716248746666667*
        t428*t329*t429)*t28*rhoa+32.1646831778707*t187*t171*t188*t28*
        t189*rhoa-.3333333333333333*t172*t29*t3*t7+2.0*t171*t28*t40*
        t44*t45+.0014196384888889*t1*t2*t3*t19*t171*t43-0.75*(.0396821333333333*
        grada*t32*t185+6.792846222222222e-4*t170*t31*t184-2.254174435555555e-5*
        t168*t46*t183+1.421287424e-7*t272*t193*t182-2.61479901866667e-10*
        t428*t340*t429)*t29*t3*t42-2.0*t11*t275*t29*t3-0.06218*t19*
        t274*t28+2.0*t123*t276+t173*t264+(.0438298666666667*grada*
        t185*t54-0.0034986336*grada*t185*t50*t53-0.0046165248*t170*
        t184*t53+1.94139264e-5*grada*t185*t51*t124+9.9177696e-5*t170*
        t184*t50*t124+2.29001472e-5*t168*t183*t124-4.288712832e-7*
        t170*t184*t51*t265-3.915468288e-7*t168*t183*t50*t265+1.5248756736e-9*
        t168*t183*t51*t406)*t134-.1369866666666666*t1*t2*t3*t40*t171*
        t44*t45*t12+.0042589154666667*t1*t2*t3*t19*t274*t12;
    d3fdraragb = 2.0*t123*t277+t179*t264+(-0.0018808064*t21*
        gradb*t185*t53*t49+4.0405728e-5*t21*gradb*t185*t50*t124*t49+
        2.29001472e-5*t20*gradb*t184*t124*t49-1.747253376e-7*t21*gradb*
        t185*t51*t265*t49-3.915468288e-7*t20*gradb*t184*t50*t265*t49+
        1.5248756736e-9*t20*gradb*t184*t51*t406*t49)*t134;
    d3fdraraab = 0.0;
    d3fdrarbrb = t55*(t56*(.0867486470622522*t67*t1*t2*t3*
        t89*t163*t95*t96*t76*t97+.0433743235311261*t67*t1*t2*t3*t89*
        t114*t95*t96*t76*t97-.5848223397455204*t67*t304*t95*t72*t96*
        t76*t97-1.169644679491041*t67*t163*t222*t72*t96*t76*t97-.5848223397455204*
        t67*t114*t222*t72*t96*t76*t97+2.339289358982082*t67*t163*t214*
        t72*t219*t76*t97+1.169644679491041*t67*t114*t214*t72*t219*
        t76*t97-.5848223397455204*t67*t71*t95*t72*t96*t299*t97+.0867486470622522*
        t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-1.169644679491041*t67*
        t163*t95*t72*t96*t161*t97-1.169644679491041*t67*t71*t222*t72*
        t96*t161*t97+2.339289358982082*t67*t71*t214*t72*t219*t161*
        t97+.0433743235311261*t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-
        .5848223397455204*t67*t71*t222*t72*t96*t108*t97+1.169644679491041*
        t67*t71*t214*t72*t219*t108*t97-80.0*t113*t243*t67*t76*t85+
        4.0*t113*t299*t67*t70*t85-8.0*t113*t267*t67*t70*t85-24.0*t161*
        t245*t67*t70*t85+12.0*t108*t245*t67*t70*t85-4.0*t111*t299*
        t67*t69*t85+40.0*t161*t243*t67*t69*t85+20.0*t108*t243*t67*
        t69*t85+32.0*t108*t111*t113*t67*t85+t67*t69*t70*t430*t85+.0197517897025652*
        (t421+t397+t395+80.0*t113*t243)*t67*t72*t76*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t304*t76*t79+.0019532325372537*t67*t1*t2*
        t3*t210*t163*t76*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
        t114*t76*t79+.0197517897025652*t67*t71*t72*t430*t79+.0197517897025652*
        t67*t114*t72*t299*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*
        t71*t299*t79+.0395035794051304*t67*t163*t72*t267*t79+.0395035794051304*
        t67*t268*t72*t161*t79+.0019532325372537*t67*t1*t2*t3*t210*
        t71*t161*t79-.0014649244029403*t67*t1*t2*t3*t89*t163*t161*
        t79+.0197517897025652*t67*t304*t72*t108*t79+9.766162686268349e-4*
        t67*t1*t2*t3*t210*t71*t108*t79-4.0*t113*t254*t67*t70*t76+32.0*
        t111*t113*t119*t67*t76+2.0*t161*t254*t67*t69*t70-8.0*t108*
        t113*t119*t67*t70-16.0*t111*t119*t161*t67*t69-8.0*t108*t111*
        t119*t67*t69+t426+t425+t424+t423+t420+t419+t418+t416+t415+
        t414+t413+t412+t405+t403+t401+t400+t399+t393+t385+t384+t383+
        t382+t381+t380+t379+t378+t377+t376+t375+t373+t367+t366+t365+
        t364+t363+t362+t361+t360+t358+t67*t69*t70*t108*t254-34.63151179875173*
        t67*t163*t214*t72*t215*t76*t216-17.31575589937587*t67*t114*
        t214*t72*t215*t76*t216-34.63151179875173*t67*t71*t214*t72*
        t215*t161*t216-17.31575589937587*t67*t71*t214*t72*t215*t108*
        t216+t67*t69*t70*t299*t119)-2.339289358982082*t67*t163*t95*
        t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t161*
        t97-8.0*t108*t113*t67*t70*t85-16.0*t111*t161*t67*t69*t85-.0029298488058805*
        t67*t1*t2*t3*t89*t163*t76*t79-.0029298488058805*t67*t1*t2*
        t3*t89*t71*t161*t79+4.0*t119*t161*t67*t69*t70+t411+t410+t409+
        t408+t407+t353+t352+t351+t350+t349+t348+t347+t346+t345+t344+
        t343+t342+t341+t310+t308+t307+t305+t302+t300+t269+t260+t256+
        t241+t239+t224+t218)+t125*t311+2.0*t166*t271+2.0*t167*t270+
        (.0025077418666667*t21*t48*t38*t53*t283-5.3874304e-5*t21*t48*
        t38*t50*t124*t283+2.329671168e-7*t21*t48*t38*t51*t265*t283-
        3.05335296e-5*t21*t135*t38*t124*t282+5.220624384000001e-7*
        t21*t135*t38*t50*t265*t282-2.0331675648e-9*t21*t135*t38*t51*
        t406*t282)*t134+t312*t123;
    d3fdrarbga = (-0.0013678592*grada*t48*t38*t53*t149+2.9385984e-5*
        grada*t48*t38*t50*t124*t149+2.29001472e-5*t170*t48*t37*t124*
        t149-1.270729728e-7*grada*t48*t38*t51*t265*t149-3.915468288e-7*
        t170*t48*t37*t50*t265*t149+1.5248756736e-9*t170*t48*t37*t51*
        t406*t149)*t134+t313*t123+t276*t166+t173*t270;
    d3fdrarbgb = (-0.0013678592*t21*gradb*t38*t53*t149+2.9385984e-5*
        t21*gradb*t38*t50*t124*t149-1.270729728e-7*t21*gradb*t38*t51*
        t265*t149+2.29001472e-5*t21*t176*t38*t124*t148-3.915468288e-7*
        t21*t176*t38*t50*t265*t148+1.5248756736e-9*t21*t176*t38*t51*
        t406*t148)*t134+t318*t123+t277*t166+t179*t270;
    d3fdrarbab = 0.0;
    d3fdragaga = t40*t320*t44*t28*t45*rhoa-0.03109*t19*(-
        2.50528*t26*t38+11.877824*t21*t24*t37-9.207475200000001*t20*
        t35*t36+2.405017600000001*t34*t181*t273-.2037186560000001*
        t180*t329*t431)*t28*rhoa-0.75*t29*t3*(-0.0108224*t32*t38-2.898687999999999e-4*
        t21*t31*t37+1.3043712e-5*t20*t46*t36-9.587179519999999e-8*
        t34*t193*t273+1.961099264e-10*t180*t340*t431)*t42-1.0*t11*
        t29*t3*t321-0.03109*t19*t320*t28+(-0.0119536*t38*t54+9.541727999999999e-4*
        t38*t50*t53+0.002564736*t21*t37*t53-5.294707200000001e-6*t38*
        t51*t124-5.509872e-5*t21*t37*t50*t124-1.71751104e-5*t20*t36*
        t124+2.38261824e-7*t21*t37*t51*t265+2.936601216e-7*t20*t36*
        t50*t265-1.1436567552e-9*t20*t36*t51*t406)*t134+t322*t123+
        .0021294577333333*t1*t2*t3*t19*t320*t12;
    d3fdragagb = (0.0010258944*grada*gradb*t38*t53*t49-2.2039488e-5*
        grada*gradb*t38*t50*t124*t49-1.71751104e-5*t170*gradb*t37*
        t124*t49+9.53047296e-8*grada*gradb*t38*t51*t265*t49+2.936601216e-7*
        t170*gradb*t37*t50*t265*t49-1.1436567552e-9*t170*gradb*t37*
        t51*t406*t49)*t134+t323*t123;
    d3fdragaab = 0.0;
    d3fdragbgb = (5.129471999999999e-4*t21*t38*t53*t49-1.1019744e-5*
        t21*t38*t50*t124*t49+4.76523648e-8*t21*t38*t51*t265*t49-1.71751104e-5*
        t21*t48*t38*t124*t138+2.936601216e-7*t21*t48*t38*t50*t265*
        t138-1.1436567552e-9*t21*t48*t38*t51*t406*t138)*t134+t327*
        t123;
    d3fdragbab = 0.0;
    d3fdraabab = 0.0;
    d3fdrbrbrb = t55*(192.9880990672242*t285*t440*t133*t442*
        rhob-2069.133687865597*t439*t440*t133*t441*rhob+6.0*t151*t290*
        t155*t133*t288*rhob-6.0*t151*t440*t133*t287*rhob-96.4940495336121*
        t285*t290*t155*t133*t287*rhob-1.0*t151*t443*t133*t156*rhob+
        t56*(.1301229705933783*t67*t1*t2*t3*t89*t163*t95*t96*t76*t97-
        1.754467019236561*t67*t304*t95*t72*t96*t76*t97-1.754467019236561*
        t67*t163*t222*t72*t96*t76*t97+3.508934038473122*t67*t163*t214*
        t72*t219*t76*t97-1.754467019236561*t67*t71*t95*t72*t96*t299*
        t97+.1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-
        3.508934038473122*t67*t163*t95*t72*t96*t161*t97-1.754467019236561*
        t67*t71*t222*t72*t96*t161*t97+3.508934038473122*t67*t71*t214*
        t72*t219*t161*t97-240.0*t113*t243*t67*t76*t85-12.0*t113*t299*
        t67*t70*t85+36.0*t161*t245*t67*t70*t85-12.0*t111*t299*t67*
        t69*t85+60.0*t161*t243*t67*t69*t85+96.0*t111*t113*t161*t67*
        t85+t67*t69*t70*t445*t85+.0197517897025652*(t422+t396+t395+
        240.0*t113*t243)*t67*t72*t76*t79-.0021973866044104*t67*t1*
        t2*t3*t89*t304*t76*t79+.0029298488058805*t67*t1*t2*t3*t210*
        t163*t76*t79+.0197517897025652*t67*t71*t72*t445*t79+.0592553691076956*
        t67*t163*t72*t299*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*
        t299*t79+.0592553691076956*t67*t304*t72*t161*t79+.0029298488058805*
        t67*t1*t2*t3*t210*t71*t161*t79-.0043947732088208*t67*t1*t2*
        t3*t89*t163*t161*t79-12.0*t113*t254*t67*t70*t76+96.0*t111*
        t113*t119*t67*t76+3.0*t119*t299*t67*t69*t70+3.0*t161*t254*
        t67*t69*t70-24.0*t113*t119*t161*t67*t70-24.0*t111*t119*t161*
        t67*t69+t427+t404+t403+t402+t401+t400+t399+t393+t385+t384+
        t383+t382+t381+t380+t379+t378+t377+t376+t375+t373+t367+t366+
        t365+t364+t363+t362+t361+t360+t358-51.9472676981276*t67*t163*
        t214*t72*t215*t76*t216-51.9472676981276*t67*t71*t214*t72*t215*
        t161*t216)-3.508934038473122*t67*t163*t95*t72*t96*t76*t97-
        3.508934038473122*t67*t71*t95*t72*t96*t161*t97+96.0*t111*t113*
        t67*t76*t85+3.0*t299*t67*t69*t70*t85-24.0*t113*t161*t67*t70*
        t85-24.0*t111*t161*t67*t69*t85+.0592553691076956*t67*t304*
        t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t163*t76*t79+
        .0592553691076956*t67*t71*t72*t299*t79+.1185107382153912*t67*
        t163*t72*t161*t79-.0043947732088208*t67*t1*t2*t3*t89*t71*t161*
        t79-24.0*t113*t119*t67*t70*t76+6.0*t119*t161*t67*t69*t70+t354+
        t353+t352+t351+t350+t349+t348+t347+t346+t345+t344+t343+t342+
        t341+.0018928513185185*t1*t2*t3*t132*t289+6.0*t151*t286*t133*
        t288-96.4940495336121*t285*t286*t133*t287-3.0*t151*t290*t133*
        t156+.1369866666666666*t1*t2*t3*t151*t155*t156*t154-.4109599999999999*
        t1*t2*t3*t151*t286*t288*t129+6.60919909938887*t1*t2*t3*t285*
        t286*t287*t129+0.20548*t1*t2*t3*t151*t290*t156*t129)-192.9880990672242*
        t285*t140*t440*t133*t442*rhob+2069.133687865597*t439*t140*
        t440*t133*t441*rhob+6.0*t133*t140*t151*t287*t440*rhob-6.0*
        t133*t140*t151*t155*t288*t290*rhob+3.0*t133*t150*t151*t156*
        t290*rhob-6.0*t133*t150*t151*t286*t288*rhob+96.4940495336121*
        t285*t150*t286*t133*t287*rhob+96.4940495336121*t285*t140*t290*
        t155*t133*t287*rhob+3.0*t133*t151*t155*t156*t284*rhob+t151*
        t443*t140*t133*t156*rhob-0.03109*t132*(-21.43406222222222*
        t48*t139*t438+43.62403792592593*t135*t137*t437-23.86947034074074*
        t145*t146*t436+5.011237546666668*t278*t279*t435-.3621664995555556*
        t432*t433*t434)*t133*rhob-0.75*t153*t29*t3*(-.0925916444444444*
        t48*t143*t438-.0013247194074074*t135*t142*t437+3.645222305185185e-5*
        t145*t157*t436-2.058474837333333e-7*t278*t291*t435+3.48639869155556e-10*
        t432*t444*t434)+3.0*t166*t312+3.0*t167*t311-3.0*t128*t29*t292*
        t3-1.0*t126*t158*t29*t3+.2222222222222222*t144*t152*t29*t3+
        3.0*t133*t140*t151*t156*t290-.0018928513185185*t1*t2*t3*t132*
        t140*t289-6.0*t133*t140*t151*t286*t288+96.4940495336121*t285*
        t140*t286*t133*t287+6.0*t151*t150*t155*t133*t156-.1369866666666666*
        t1*t2*t3*t151*t140*t155*t156*t154+.0042589154666667*t1*t2*
        t3*t132*t150*t154+(-.1022696888888889*t48*t54*t438+0.0081634784*
        t48*t50*t53*t438-4.52991616e-5*t48*t51*t124*t438+0.0075232256*
        t135*t53*t437-1.61622912e-4*t135*t50*t124*t437+6.989013504000001e-7*
        t135*t51*t265*t437-3.05335296e-5*t145*t124*t436+5.220624384000001e-7*
        t145*t50*t265*t436-2.0331675648e-9*t145*t51*t406*t436)*t134-
        0.09327*t132*t284*t133+.4109599999999999*t1*t2*t3*t151*t140*
        t286*t288*t129-6.60919909938887*t1*t2*t3*t285*t140*t286*t287*
        t129+0.0063883732*t1*t2*t3*t132*t284*t129-0.20548*t1*t2*t3*
        t151*t140*t290*t156*t129-.4109599999999999*t1*t2*t3*t151*t150*
        t155*t156*t129;
    d3fdrbrbga = 2.0*t166*t313+t173*t311+(-0.0018808064*grada*
        t48*t22*t53*t283+4.0405728e-5*grada*t48*t22*t50*t124*t283-
        1.747253376e-7*grada*t48*t22*t51*t265*t283+2.29001472e-5*grada*
        t135*t22*t124*t282-3.915468288e-7*grada*t135*t22*t50*t265*
        t282+1.5248756736e-9*grada*t135*t22*t51*t406*t282)*t134;
    d3fdrbrbgb = 2.0*
        t133*t151*t155*t156*t316*rhob-2.0*t133*t151*t177*t286*t288*
        rhob+32.1646831778707*t285*t177*t286*t133*t287*rhob+t151*t177*
        t290*t133*t156*rhob-0.03109*t132*(9.186026666666667*gradb*
        t139*t283-24.29598577777778*t176*t137*t282+15.22003342222222*
        t174*t146*t281-3.503779840000001*t314*t279*t280+.2716248746666667*
        t446*t433*t447)*t133*rhob+2.0*t166*t318-2.0*t128*t29*t3*t317+
        t179*t311-0.75*t153*(.0396821333333333*gradb*t143*t283+6.792846222222222e-4*
        t176*t142*t282-2.254174435555555e-5*t174*t157*t281+1.421287424e-7*
        t314*t291*t280-2.61479901866667e-10*t446*t444*t447)*t29*t3-
        .3333333333333333*t126*t178*t29*t3+2.0*t133*t151*t155*t156*
        t177+.0014196384888889*t1*t2*t3*t132*t177*t154+(.0438298666666667*
        gradb*t54*t283-0.0034986336*gradb*t50*t53*t283+1.94139264e-5*
        gradb*t51*t124*t283-0.0046165248*t176*t53*t282+9.9177696e-5*
        t176*t50*t124*t282-4.288712832e-7*t176*t51*t265*t282+2.29001472e-5*
        t174*t124*t281-3.915468288e-7*t174*t50*t265*t281+1.5248756736e-9*
        t174*t51*t406*t281)*t134-0.06218*t132*t316*t133+.0042589154666667*
        t1*t2*t3*t132*t316*t129-.1369866666666666*t1*t2*t3*t151*t177*
        t155*t156*t129;
    d3fdrbrbab = 0.0;
    d3fdrbgaga = (5.129471999999999e-4*t48*t22*t53*t149-1.1019744e-5*
        t48*t22*t50*t124*t149-1.71751104e-5*t21*t48*t25*t124*t149+
        4.76523648e-8*t48*t22*t51*t265*t149+2.936601216e-7*t21*t48*
        t25*t50*t265*t149-1.1436567552e-9*t21*t48*t25*t51*t406*t149)*
        t134+t322*t166;
    d3fdrbgagb = (0.0010258944*grada*gradb*t22*t53*t149-2.2039488e-5*
        grada*gradb*t22*t50*t124*t149+9.53047296e-8*grada*gradb*t22*
        t51*t265*t149-1.71751104e-5*grada*t176*t22*t124*t148+2.936601216e-7*
        grada*t176*t22*t50*t265*t148-1.1436567552e-9*grada*t176*t22*
        t51*t406*t148)*t134+t323*t166;
    d3fdrbgaab = 0.0;
    d3fdrbgbgb = t151*t325*t155*t133*t156*rhob-0.03109*t132*
        (-2.50528*t139*t149+11.877824*t48*t137*t148-9.207475200000001*
        t135*t146*t147+2.405017600000001*t145*t279*t315-.2037186560000001*
        t278*t433*t448)*t133*rhob-1.0*t128*t29*t3*t326-0.75*(-0.0108224*
        t143*t149-2.898687999999999e-4*t48*t142*t148+1.3043712e-5*
        t135*t157*t147-9.587179519999999e-8*t145*t291*t315+1.961099264e-10*
        t278*t444*t448)*t153*t29*t3+t327*t166+(-0.0119536*t54*t149+
        9.541727999999999e-4*t50*t53*t149-5.294707200000001e-6*t51*
        t124*t149+0.002564736*t48*t53*t148-5.509872e-5*t48*t50*t124*
        t148+2.38261824e-7*t48*t51*t265*t148-1.71751104e-5*t135*t124*
        t147+2.936601216e-7*t135*t50*t265*t147-1.1436567552e-9*t135*
        t51*t406*t147)*t134-0.03109*t132*t325*t133+.0021294577333333*
        t1*t2*t3*t132*t325*t129;
    d3fdrbgbab = 0.0;
    d3fdrbabab = 0.0;
    d3fdgagaga = -0.03109*t19*(-4.64208*grada*t24*t25+5.172576000000001*
        t170*t35*t169-1.612776960000001*t168*t181*t319+.1527889920000001*
        t272*t329*t449)*t28*rhoa-0.75*(9.246719999999999e-5*grada*
        t31*t25-6.8550144e-6*t170*t46*t169+6.271119360000001e-8*t168*
        t193*t319-1.470824448e-10*t272*t340*t449)*t29*t3*t42+(-0.0011541312*
        grada*t25*t53+2.4794424e-5*grada*t25*t50*t124+1.28813328e-5*
        t170*t169*t124-1.072178208e-7*grada*t25*t51*t265-2.202450912e-7*
        t170*t169*t50*t265+8.577425664e-10*t170*t169*t51*t406)*t134;
    d3fdgagagb = (-
        3.847104000000001e-4*gradb*t22*t53*t49+8.264808e-6*gradb*t22*
        t50*t124*t49+1.28813328e-5*t21*gradb*t25*t124*t49-3.57392736e-8*
        gradb*t22*t51*t265*t49-2.202450912e-7*t21*gradb*t25*t50*t265*
        t49+8.577425664e-10*t21*gradb*t25*t51*t406*t49)*t134;
    d3fdgagaab = 0.0;
    d3fdgagbgb = (-3.847104000000001e-4*grada*t22*t53*t49+
        8.264808e-6*grada*t22*t50*t124*t49-3.57392736e-8*grada*t22*
        t51*t265*t49+1.28813328e-5*grada*t48*t22*t124*t138-2.202450912e-7*
        grada*t48*t22*t50*t265*t138+8.577425664e-10*grada*t48*t22*
        t51*t406*t138)*t134;
    d3fdgagbab = 0.0;
    d3fdgaabab = 0.0;
    d3fdgbgbgb = -0.03109*t132*(-4.64208*gradb*t137*t138+
        5.172576000000001*t176*t146*t175-1.612776960000001*t174*t279*
        t324+.1527889920000001*t314*t433*t450)*t133*rhob-0.75*(9.246719999999999e-5*
        gradb*t142*t138-6.8550144e-6*t176*t157*t175+6.271119360000001e-8*
        t174*t291*t324-1.470824448e-10*t314*t444*t450)*t153*t29*t3+
        (-0.0011541312*gradb*t53*t138+2.4794424e-5*gradb*t50*t124*
        t138-1.072178208e-7*gradb*t51*t265*t138+1.28813328e-5*t176*
        t124*t175-2.202450912e-7*t176*t50*t265*t175+8.577425664e-10*
        t176*t51*t406*t175)*t134;
    d3fdgbgbab = 0.0;
    d3fdgbabab = 0.0;
    d3fdababab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;

    ds->df2000 += factor*d2fdrara;
    ds->df1100 += factor*d2fdrarb;
    ds->df1010 += factor*d2fdraga;
    ds->df1001 += factor*d2fdragb;
    ds->df10001+= factor*d2fdraab;
    ds->df0200 += factor*d2fdrbrb;
    ds->df0110 += factor*d2fdrbga;
    ds->df0101 += factor*d2fdrbgb;
    ds->df01001+= factor*d2fdrbgab;
    ds->df0020 += factor*d2fdgaga;
    ds->df0011 += factor*d2fdgagb;
    ds->df00101+= factor*d2fdgagab;
    ds->df0002 += factor*d2fdgbgb;
    ds->df00011+= factor*d2fdgbgab;
    ds->df00002+= factor*d2fdgabgab;

    ds->df3000 += factor*d3fdrarara;
    ds->df2100  += factor*d3fdrararb;
    ds->df2010  += factor*d3fdraraga;
    ds->df2001  += factor*d3fdraragb;
    ds->df20001 += factor*d3fdraraab;
    ds->df1200  += factor*d3fdrarbrb;
    ds->df1110  += factor*d3fdrarbga;
    ds->df1101  += factor*d3fdrarbgb;
    ds->df11001 += factor*d3fdrarbab;
    ds->df1020  += factor*d3fdragaga;
    ds->df1011  += factor*d3fdragagb;
    ds->df10101 += factor*d3fdragaab;
    ds->df1002  += factor*d3fdragbgb;
    ds->df10011 += factor*d3fdragbab;
    ds->df10002 += factor*d3fdraabab;
    ds->df0300  += factor*d3fdrbrbrb;
    ds->df0210  += factor*d3fdrbrbga;
    ds->df0201  += factor*d3fdrbrbgb;
    ds->df02001 += factor*d3fdrbrbab;
    ds->df0120  += factor*d3fdrbgaga;
    ds->df0111  += factor*d3fdrbgagb;
    ds->df01101 += factor*d3fdrbgaab;
    ds->df0102  += factor*d3fdrbgbgb;
    ds->df01011 += factor*d3fdrbgbab;
    ds->df01002 += factor*d3fdrbabab;
    ds->df0030  += factor*d3fdgagaga;
    ds->df0021  += factor*d3fdgagagb;
    ds->df00201 += factor*d3fdgagaab;
    ds->df0012  += factor*d3fdgagbgb;
    ds->df00111 += factor*d3fdgagbab;
    ds->df00102 += factor*d3fdgaabab;
    ds->df0003  += factor*d3fdgbgbgb;
    ds->df00021 += factor*d3fdgbgbab;
    ds->df00012 += factor*d3fdgbabab;
    ds->df00003 += factor*d3fdababab;

}

static void
b97_fourth(FunFourthFuncDrv *ds, real factor, const FunDensProp* dp)
{
    real dfdra, dfdrb, dfdga, dfdgb, dfdgab;
    real d2fdrara, d2fdrarb, d2fdraga, d2fdragb, d2fdraab, d2fdrbrb,
        d2fdrbga, d2fdrbgb, d2fdrbgab, d2fdgaga, d2fdgagb, d2fdgagab,
        d2fdgbgb, d2fdgbgab, d2fdgabgab;
    real d3fdrarara, d3fdrararb, d3fdraraga, d3fdraragb, d3fdraraab,
         d3fdrarbrb, d3fdrarbga, d3fdrarbgb, d3fdrarbab, d3fdragaga,
         d3fdragagb, d3fdragaab, d3fdragbgb, d3fdragbab, d3fdraabab,
         d3fdrbrbrb, d3fdrbrbga, d3fdrbrbgb, d3fdrbrbab, d3fdrbgaga,
         d3fdrbgagb, d3fdrbgaab, d3fdrbgbgb, d3fdrbgbab, d3fdrbabab,
         d3fdgagaga, d3fdgagagb, d3fdgagaab, d3fdgagbgb, d3fdgagbab,
         d3fdgaabab, d3fdgbgbgb, d3fdgbgbab, d3fdgbabab, d3fdababab;
    real d4fdrararara, d4fdrarararb, d4fdrararaga, d4fdrararagb,
         d4fdrararaab, d4fdrararbrb, d4fdrararbga, d4fdrararbgb, d4fdrararbab,
         d4fdraragaga, d4fdraragagb, d4fdraragaab, d4fdraragbgb, d4fdraragbab,
         d4fdraraabab, d4fdrarbrbrb, d4fdrarbrbga, d4fdrarbrbgb, d4fdrarbrbab,
         d4fdrarbgaga, d4fdrarbgagb, d4fdrarbgaab, d4fdrarbgbgb, d4fdrarbgbab,
         d4fdrarbabab, d4fdragagaga, d4fdragagagb, d4fdragagaab, d4fdragagbgb,
         d4fdragagbab, d4fdragaabab, d4fdragbgbgb, d4fdragbgbab, d4fdragbabab,
         d4fdraababab, d4fdrbrbrbrb, d4fdrbrbrbga, d4fdrbrbrbgb, d4fdrbrbrbab,
         d4fdrbrbgaga, d4fdrbrbgagb, d4fdrbrbgaab, d4fdrbrbgbgb, d4fdrbrbgbab,
         d4fdrbrbabab, d4fdrbgagaga, d4fdrbgagagb, d4fdrbgagaab, d4fdrbgagbgb,
         d4fdrbgagbab, d4fdrbgaabab, d4fdrbgbgbgb, d4fdrbgbgbab, d4fdrbgbabab,
         d4fdrbababab, d4fdgagagaga, d4fdgagagagb, d4fdgagagaab, d4fdgagagbgb,
         d4fdgagagbab, d4fdgagaabab, d4fdgagbgbgb, d4fdgagbgbab, d4fdgagbabab,
         d4fdgaababab, d4fdgbgbgbgb, d4fdgbgbgbab, d4fdgbgbabab, d4fdgbababab,
         d4fdabababab;
    real rhoa = dp->rhoa, rhob = dp->rhob;
    real grada = dp->grada, gradb = dp->gradb, gradab = dp->gradab;

    real t1, t2, t3, t4, t5, t6, t7, t8, t9, t10;
    real t11, t12, t13, t14, t15, t16, t17, t18;
    real t19, t20, t21, t22, t23, t24, t25, t26;
    real t27, t28, t29, t30, t31, t32, t33, t34;
    real t35, t36, t37, t38, t39, t40, t41, t42;
    real t43, t44, t45, t46, t47, t48, t49, t50;
    real t51, t52, t53, t54, t55, t56, t57, t58;
    real t59, t60, t61, t62, t63, t64, t65, t66;
    real t67, t68, t69, t70, t71, t72, t73, t74;
    real t75, t76, t77, t78, t79, t80, t81, t82;
    real t83, t84, t85, t86, t87, t88, t89, t90;
    real t91, t92, t93, t94, t95, t96, t97, t98;
    real t99, t100, t101, t102, t103, t104, t105;
    real t106, t107, t108, t109, t110, t111, t112;
    real t113, t114, t115, t116, t117, t118, t119;
    real t120, t121, t122, t123, t124, t125, t126;
    real t127, t128, t129, t130, t131, t132, t133;
    real t134, t135, t136, t137, t138, t139, t140;
    real t141, t142, t143, t144, t145, t146, t147;
    real t148, t149, t150, t151, t152, t153, t154;
    real t155, t156, t157, t158, t159, t160, t161;
    real t162, t163, t164, t165, t166, t167, t168;
    real t169, t170, t171, t172, t173, t174, t175;
    real t176, t177, t178, t179, t180, t181, t182;
    real t183, t184, t185, t186, t187, t188, t189;
    real t190, t191, t192, t193, t194, t195, t196;
    real t197, t198, t199, t200, t201, t202, t203;
    real t204, t205, t206, t207, t208, t209, t210;
    real t211, t212, t213, t214, t215, t216, t217;
    real t218, t219, t220, t221, t222, t223, t224;
    real t225, t226, t227, t228, t229, t230, t231;
    real t232, t233, t234, t235, t236, t237, t238;
    real t239, t240, t241, t242, t243, t244, t245;
    real t246, t247, t248, t249, t250, t251, t252;
    real t253, t254, t255, t256, t257, t258, t259;
    real t260, t261, t262, t263, t264, t265, t266;
    real t267, t268, t269, t270, t271, t272, t273;
    real t274, t275, t276, t277, t278, t279, t280;
    real t281, t282, t283, t284, t285, t286, t287;
    real t288, t289, t290, t291, t292, t293, t294;
    real t295, t296, t297, t298, t299, t300, t301;
    real t302, t303, t304, t305, t306, t307, t308;
    real t309, t310, t311, t312, t313, t314, t315;
    real t316, t317, t318, t319, t320, t321, t322;
    real t323, t324, t325, t326, t327, t328, t329;
    real t330, t331, t332, t333, t334, t335, t336;
    real t337, t338, t339, t340, t341, t342, t343;
    real t344, t345, t346, t347, t348, t349, t350;
    real t351, t352, t353, t354, t355, t356, t357;
    real t358, t359, t360, t361, t362, t363, t364;
    real t365, t366, t367, t368, t369, t370, t371;
    real t372, t373, t374, t375, t376, t377, t378;
    real t379, t380, t381, t382, t383, t384, t385;
    real t386, t387, t388, t389, t390, t391, t392;
    real t393, t394, t395, t396, t397, t398, t399;
    real t400, t401, t402, t403, t404, t405, t406;
    real t407, t408, t409, t410, t411, t412, t413;
    real t414, t415, t416, t417, t418, t419, t420;
    real t421, t422, t423, t424, t425, t426, t427;
    real t428, t429, t430, t431, t432, t433, t434;
    real t435, t436, t437, t438, t439, t440, t441;
    real t442, t443, t444, t445, t446, t447, t448;
    real t449, t450, t451, t452, t453, t454, t455;
    real t456, t457, t458, t459, t460, t461, t462;
    real t463, t464, t465, t466, t467, t468, t469;
    real t470, t471, t472, t473, t474, t475, t476;
    real t477, t478, t479, t480, t481, t482, t483;
    real t484, t485, t486, t487, t488, t489, t490;
    real t491, t492, t493, t494, t495, t496, t497;
    real t498, t499, t500, t501, t502, t503, t504;
    real t505, t506, t507, t508, t509, t510, t511;
    real t512, t513, t514, t515, t516, t517, t518;
    real t519, t520, t521, t522, t523, t524, t525;
    real t526, t527, t528, t529, t530, t531, t532;
    real t533, t534, t535, t536, t537, t538, t539;
    real t540, t541, t542, t543, t544, t545, t546;
    real t547, t548, t549, t550, t551, t552, t553;
    real t554, t555, t556, t557, t558, t559, t560;
    real t561, t562, t563, t564, t565, t566, t567;
    real t568, t569, t570, t571, t572, t573, t574;
    real t575, t576, t577, t578, t579, t580, t581;
    real t582, t583, t584, t585, t586, t587, t588;
    real t589, t590, t591, t592, t593, t594, t595;
    real t596, t597, t598, t599, t600, t601, t602;
    real t603, t604, t605, t606, t607, t608, t609;
    real t610, t611, t612, t613, t614, t615, t616;
    real t617, t618, t619, t620, t621, t622, t623;
    real t624, t625, t626, t627, t628, t629, t630;
    real t631, t632, t633, t634, t635, t636, t637;
    real t638, t639, t640, t641, t642, t643, t644;
    real t645, t646, t647, t648, t649, t650, t651;
    real t652, t653, t654, t655, t656, t657, t658;
    real t659, t660, t661, t662, t663, t664, t665;
    real t666, t667, t668, t669, t670, t671, t672;
    real t673, t674, t675, t676, t677, t678, t679;
    real t680, t681, t682, t683, t684, t685, t686;
    real t687, t688, t689, t690, t691, t692, t693;
    real t694, t695, t696, t697, t698, t699, t700;
    real t701, t702, t703, t704, t705, t706, t707;
    real t708, t709, t710, t711, t712, t713, t714;
    real t715, t716, t717, t718, t719, t720, t721;
    real t722, t723, t724, t725, t726, t727, t728;
    real t729, t730, t731, t732, t733, t734, t735;
    real t736, t737, t738, t739, t740, t741, t742;
    real t743, t744, t745, t746, t747, t748;

    t1 = pow(3.0,.3333333333333333);
    t2 = 1/pow(4.0,.3333333333333333);
    t3 = 1/pow(3.141592653589793,.3333333333333333);
    t4 = pow(3.0,.6666666666666666);
    t5 = 1/pow(4.0,.6666666666666666);
    t6 = 1/pow(3.141592653589793,.6666666666666666);
    t7 = 1/pow(rhoa,.6666666666666666);
    t8 = 1.732050807568877;
    t9 = .5641895835477563;
    t10 = sqrt(rhoa);
    t11 = pow(rhoa,.3333333333333333);
    t12 = 1/t11;
    t13 = pow(2.0,.3333333333333333);
    t14 = 1/t13;
    t15 = pow(3.0,.1666666666666667);
    t16 = 1/pow(3.141592653589793,.1666666666666667);
    t17 = 14.1189*t14*t15*t16/pow(rhoa,.1666666666666667)+
        1.6831*t8*t9/t10+0.62517*t4*t5*t6*t7+6.1977*t1*t2*t3*t12;
    t18 = 32.1646831778707/
        t17+1.0;
    t19 = log(t18);
    t20 = pow(grada,4.0);
    t21 = pow(grada,2.0);
    t22 = 1/pow(rhoa,2.666666666666667);
    t23 = 0.2*t21*t22+1.0;
    t24 = 1/pow(t23,2.0);
    t25 = 1/pow(rhoa,5.333333333333333);
    t26 = 1/t23;
    t27 = 0.46974*t21*t26*t22-0.099472*t20*t24*t25+0.1737;
    t28 = 0.20548*
        t1*t2*t3*t12+1.0;
    t29 = pow(6.0,.3333333333333333);
    t30 = 0.004*t21*t22+1.0;
    t31 = 1/pow(t30,2.0);
    t32 = 1/t30;
    t33 = 0.0020292*t21*t32*t22+1.19696e-5*t20*t31*t25+0.8094;
    t34 = pow(grada,
        6.0);
    t35 = 1/pow(t23,3.0);
    t36 = 1/pow(rhoa,9.0);
    t37 = 1/pow(rhoa,6.333333333333333);
    t38 = 1/pow(rhoa,3.666666666666667);
    t39 = -1.25264*t21*t26*t38+.7810453333333334*t20*t24*
        t37-.1061034666666667*t34*t35*t36;
    t40 = 1/t18;
    t41 = 1/pow(rhoa,1.666666666666667);
    t42 = pow(rhoa,1.333333333333333);
    t43 = 1/t42;
    t44 = -2.35315*t14*t15*t16/pow(rhoa,1.166666666666667)-
        0.84155*t8*t9/pow(t10,3.0)-2.0659*t1*t2*t3*t43-0.41678*t4*
        t5*t6*t41;
    t45 = 1/pow(t17,2.0);
    t46 = 1/pow(t30,3.0);
    t47 = -0.0054112*t21*t32*t38-4.219306666666666e-5*t20*
        t31*t37+2.553514666666666e-7*t34*t46*t36;
    t48 = pow(gradb,2.0);
    t49 = 1/pow(rhob,2.666666666666667);
    t50 = 0.5*t48*t49+0.5*t21*t22;
    t51 = pow(t50,2.0);
    t52 = 0.006*t50+1.0;
    t53 = 1/pow(t52,2.0);
    t54 = 1/t52;
    t55 = 0.0044826*t50*t54-1.654596e-4*t51*t53+0.9454;
    t56 = rhob+
        rhoa;
    t57 = 1/pow(t56,.3333333333333333);
    t58 = 0.2137*t1*t2*t3*t57+1.0;
    t59 = 1/pow(t56,.6666666666666666);
    t60 = sqrt(t56);
    t61 = 1/t60;
    t62 = 1/pow(t56,.1666666666666667);
    t63 = 7.5957*t14*t15*t16*t62+3.5876*t1*t2*t3*t57+0.8191*
        t8*t9*t61+0.49294*t4*t5*t6*t59;
    t64 = 16.0818243221511/t63+1.0;
    t65 = log(t64);
    t66 = -0.062182*t58*t65;
    t67 = 1/(2.0*t13-2.0);
    t68 = rhoa-1.0*rhob;
    t69 = pow(t68,4.0);
    t70 = 1/pow(t56,4.0);
    t71 = 1.0-1.0*t69*t70;
    t72 = 0.11125*t1*t2*t3*t57+1.0;
    t73 = 1/t56;
    t74 = 1.0-1.0*t68*t73;
    t75 = t68*t73+1.0;
    t76 = pow(t75,1.333333333333333)+pow(t74,1.333333333333333)-
        2.0;
    t77 = 10.357*t14*t15*t16*t62+3.6231*t1*t2*t3*t57+0.44013*
        t8*t9*t61+0.49671*t4*t5*t6*t59;
    t78 = 29.60857464321668/t77+1.0;
    t79 = log(t78);
    t80 = .0197517897025652*t67*t71*t72*t76*t79;
    t81 = 0.20548*t1*t2*t3*t57+1.0;
    t82 = 14.1189*t14*t15*t16*t62+6.1977*t1*t2*t3*t57+1.6831*
        t8*t9*t61+0.62517*t4*t5*t6*t59;
    t83 = 32.1646831778707/t82+1.0;
    t84 = log(t83);
    t85 = 0.062182*t58*t65-0.03109*t81*t84;
    t86 = t67*t69*t70*t76*t85;
    t87 = 1/pow(t56,1.666666666666667);
    t88 = 1/pow(t60,3.0);
    t89 = 1/pow(t56,1.333333333333333);
    t90 = 1/pow(t56,1.166666666666667);
    t91 = -1.26595*t14*t15*t16*t90-1.195866666666667*t1*t2*
        t3*t89-0.40955*t8*t9*t88-.3286266666666666*t4*t5*t6*t87;
    t92 = 1/
        pow(t63,2.0);
    t93 = 1/t64;
    t94 = .9999999999999999*t91*t58*t92*t93;
    t95 = -1.726166666666666*t14*t15*t16*t90-1.2077*t1*t2*
        t3*t89-0.220065*t8*t9*t88-0.33114*t4*t5*t6*t87;
    t96 = 1/pow(t77,2.0);
    t97 = 1/t78;
    t98 = -.5848223397455204*t67*t71*t95*t72*t96*t76*t97;
    t99 = .0044294311333333*
        t1*t2*t3*t89*t65;
    t100 = 1/pow(t56,2.0);
    t101 = t68*t100;
    t102 = -1.0*t73;
    t103 = t102+t101;
    t104 = pow(t74,.3333333333333333);
    t105 = -1.0*t100*t68;
    t106 = t73+t105;
    t107 = pow(t75,.3333333333333333);
    t108 = 1.333333333333333*t106*t107+1.333333333333333*
        t103*t104;
    t109 = .0197517897025652*t67*t71*t72*t108*t79;
    t110 = -7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t76*
        t79;
    t111 = 1/pow(t56,5.0);
    t112 = 4.0*t111*t69;
    t113 = pow(t68,3.0);
    t114 = t112-4.0*t113*t70;
    t115 = .0197517897025652*t67*t114*t72*t76*t79;
    t116 = -2.35315*t14*t15*t16*t90-2.0659*t1*t2*t3*t89-0.84155*
        t8*t9*t88-0.41678*t4*t5*t6*t87;
    t117 = 1/pow(t82,2.0);
    t118 = 1/t83;
    t119 = .0021294577333333*t1*t2*t3*t89*t84-.0044294311333333*
        t1*t2*t3*t89*t65+t116*t81*t117*t118-.9999999999999999*t91*
        t58*t92*t93;
    t120 = t67*t69*t70*t76*t119;
    t121 = t67*t69*t70*t108*t85;
    t122 = -4.0*t111*t67*t69*t76*t85;
    t123 = -1.0*t40*t44*t28*t45*rhoa+t56*(t99+t98+t94+4.0*
        t113*t67*t70*t76*t85+t122+t121+t120+t115+t110+t109)+t86+t80+
        t66+0.03109*t19*t28-.0021294577333333*t1*t2*t3*t19*t12;
    t124 = 1/pow(t52,3.0);
    t125 = -0.0059768*t21*t38*t54+4.770864e-4*t21*t38*t50*
        t53-2.6473536e-6*t21*t38*t51*t124;
    t126 = 1/pow(rhob,.6666666666666666);
    t127 = sqrt(rhob);
    t128 = pow(rhob,.3333333333333333);
    t129 = 1/t128;
    t130 = 14.1189*t14*t15*t16/pow(rhob,.1666666666666667)+
        1.6831*t8*t9/t127+6.1977*t1*t2*t3*t129+0.62517*t4*t5*t6*t126;
    t131 = 32.1646831778707/
        t130+1.0;
    t132 = log(t131);
    t133 = 0.20548*t1*t2*t3*t129+1.0;
    t134 = t56*(t86+t80+t66)+0.03109*t132*t133*rhob+0.03109*
        t19*t28*rhoa;
    t135 = pow(gradb,4.0);
    t136 = 0.2*t48*t49+1.0;
    t137 = 1/pow(t136,2.0);
    t138 = 1/pow(rhob,5.333333333333333);
    t139 = 1/t136;
    t140 = 0.46974*t48*t139*t49-0.099472*t135*t137*t138+0.1737;
    t141 = 0.004*
        t48*t49+1.0;
    t142 = 1/pow(t141,2.0);
    t143 = 1/t141;
    t144 = 0.0020292*t48*t143*t49+1.19696e-5*t135*t142*t138+
        0.8094;
    t145 = pow(gradb,6.0);
    t146 = 1/pow(t136,3.0);
    t147 = 1/pow(rhob,9.0);
    t148 = 1/pow(rhob,6.333333333333333);
    t149 = 1/pow(rhob,3.666666666666667);
    t150 = -1.25264*t48*t139*t149+.7810453333333334*t135*
        t137*t148-.1061034666666667*t145*t146*t147;
    t151 = 1/t131;
    t152 = 1/pow(rhob,1.666666666666667);
    t153 = pow(rhob,1.333333333333333);
    t154 = 1/t153;
    t155 = -2.35315*t14*t15*t16/pow(rhob,1.166666666666667)-
        0.84155*t8*t9/pow(t127,3.0)-2.0659*t1*t2*t3*t154-0.41678*t4*
        t5*t6*t152;
    t156 = 1/pow(t130,2.0);
    t157 = 1/pow(t141,3.0);
    t158 = -0.0054112*t48*t143*t149-4.219306666666666e-5*
        t135*t142*t148+2.553514666666666e-7*t145*t157*t147;
    t159 = t73+t101;
    t160 = t102+t105;
    t161 = 1.333333333333333*t107*t160+1.333333333333333*
        t104*t159;
    t162 = .0197517897025652*t67*t71*t72*t161*t79;
    t163 = 4.0*t113*t70+t112;
    t164 = .0197517897025652*t67*t163*t72*t76*t79;
    t165 = t67*t69*t70*t161*t85;
    t166 = -1.0*t151*t155*t133*t156*rhob+t56*(t99+t98+t94-
        4.0*t113*t67*t70*t76*t85+t165+t164+t162+t122+t120+t110)+t86+
        t80+t66+0.03109*t132*t133-.0021294577333333*t1*t2*t3*t132*
        t129;
    t167 = -0.0059768*t48*t54*t149+4.770864e-4*t48*t50*t53*
        t149-2.6473536e-6*t48*t51*t124*t149;
    t168 = pow(grada,5.0);
    t169 = 1/pow(rhoa,8.0);
    t170 = pow(grada,3.0);
    t171 = .9394800000000001*grada*t26*t22-.5857840000000001*
        t170*t24*t25+0.0795776*t168*t35*t169;
    t172 = 0.0040584*grada*t32*t22+3.16448e-5*t170*t31*t25-
        1.915136e-7*t168*t46*t169;
    t173 = 0.0044826*grada*t22*t54-3.578148e-4*grada*t22*
        t50*t53+1.9855152e-6*grada*t22*t51*t124;
    t174 = pow(gradb,5.0);
    t175 = 1/pow(rhob,8.0);
    t176 = pow(gradb,3.0);
    t177 = .9394800000000001*gradb*t139*t49-.5857840000000001*
        t176*t137*t138+0.0795776*t174*t146*t175;
    t178 = 0.0040584*gradb*t143*t49+3.16448e-5*t176*t142*
        t138-1.915136e-7*t174*t157*t175;
    t179 = 0.0044826*gradb*t54*t49-3.578148e-4*gradb*t50*
        t53*t49+1.9855152e-6*gradb*t51*t124*t49;
    t180 = pow(grada,8.0);
    t181 = 1/pow(t23,4.0);
    t182 = 1/pow(rhoa,12.66666666666667);
    t183 = 1/pow(rhoa,10.0);
    t184 = 1/pow(rhoa,7.333333333333333);
    t185 = 1/pow(rhoa,4.666666666666667);
    t186 = 4.593013333333333*t21*t26*t185-5.61469511111111*
        t20*t24*t184+1.788046222222222*t34*t35*t183-.1697655466666667*
        t180*t181*t182;
    t187 = 1/pow(t18,2.0);
    t188 = pow(t44,2.0);
    t189 = 1/pow(t17,4.0);
    t190 = 1/pow(t17,3.0);
    t191 = 1/pow(rhoa,2.333333333333333);
    t192 = 2.745341666666667*t14*t15*t16/pow(rhoa,2.166666666666667)+
        1.262325*t8*t9/pow(t10,5.0)+.6946333333333333*t4*t5*t6*t22+
        2.754533333333333*t1*t2*t3*t191;
    t193 = 1/pow(t30,4.0);
    t194 = .0198410666666667*t21*t32*t185+2.095032888888889e-4*
        t20*t31*t184-3.198281955555555e-6*t34*t46*t183+8.171246933333332e-9*
        t180*t193*t182;
    t195 = 2.0*t91*t58*t92*t93;
    t196 = -1.169644679491041*t67*t71*t95*t72*t96*t76*t97;
    t197 = .0088588622666667*
        t1*t2*t3*t89*t65;
    t198 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t76*t79;
    t199 = 2.0*
        t119*t67*t69*t70*t76;
    t200 = -8.0*t111*t67*t69*t76*t85;
    t201 = pow(t91,2.0);
    t202 = 1/pow(t63,4.0);
    t203 = 1/pow(t64,2.0);
    t204 = 16.0818243221511*t201*t58*t202*t203;
    t205 = 1/pow(t63,3.0);
    t206 = -2.0*t201*t58*t205*t93;
    t207 = -.1424666666666666*t1*t2*t3*t89*t91*t92*t93;
    t208 = 1/
        pow(t56,2.666666666666667);
    t209 = 1/pow(t60,5.0);
    t210 = 1/pow(t56,2.333333333333333);
    t211 = 1/pow(t56,2.166666666666667);
    t212 = 1.476941666666667*t14*t15*t16*t211+1.594488888888889*
        t1*t2*t3*t210+0.614325*t8*t9*t209+0.547711111111111*t4*t5*
        t6*t208;
    t213 = .9999999999999999*t212*t58*t92*t93;
    t214 = pow(t95,2.0);
    t215 = 1/pow(t77,4.0);
    t216 = 1/pow(t78,2.0);
    t217 = -17.31575589937587*t67*t71*t214*t72*t215*t76*t216;
    t218 = -
        1.169644679491041*t67*t71*t95*t72*t96*t108*t97;
    t219 = 1/pow(t77,3.0);
    t220 = 1.169644679491041*t67*t71*t214*t72*t219*t76*t97;
    t221 = .0433743235311261*
        t67*t1*t2*t3*t89*t71*t95*t96*t76*t97;
    t222 = 2.013861111111111*t14*t15*t16*t211+1.610266666666667*
        t1*t2*t3*t210+0.3300975*t8*t9*t209+.5519000000000001*t4*t5*
        t6*t208;
    t223 = -.5848223397455204*t67*t71*t222*t72*t96*t76*t97;
    t224 = -
        1.169644679491041*t67*t114*t95*t72*t96*t76*t97;
    t225 = -.0059059081777778*t1*t2*t3*t210*t65;
    t226 = pow(t103,2.0);
    t227 = 1/pow(t74,.6666666666666666);
    t228 = 1/pow(t56,3.0);
    t229 = -2.0*t228*t68;
    t230 = 2.0*t100;
    t231 = t230+t229;
    t232 = pow(t106,2.0);
    t233 = 1/pow(t75,.6666666666666666);
    t234 = 2.0*t228*t68;
    t235 = -2.0*t100;
    t236 = t235+t234;
    t237 = 1.333333333333333*t107*t236+.4444444444444444*
        t232*t233+1.333333333333333*t104*t231+.4444444444444444*t226*
        t227;
    t238 = .0197517897025652*t67*t71*t72*t237*t79;
    t239 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t108*t79;
    t240 = .0395035794051304*
        t67*t114*t72*t108*t79;
    t241 = -.0014649244029403*t67*t1*t2*t3*t89*t114*t76*t79;
    t242 = 9.766162686268349e-4*t67*t1*t2*t3*t210*t71*t76*
        t79;
    t243 = 1/pow(t56,6.0);
    t244 = -20.0*t243*t69;
    t245 = pow(t68,2.0);
    t246 = -12.0*t245*t70;
    t247 = t246+t244+32.0*t111*t113;
    t248 = .0197517897025652*t67*t247*t72*t76*t79;
    t249 = pow(t116,2.0);
    t250 = 1/pow(t82,4.0);
    t251 = 1/pow(t83,2.0);
    t252 = 1/pow(t82,3.0);
    t253 = 2.745341666666667*t14*t15*t16*t211+2.754533333333333*
        t1*t2*t3*t210+1.262325*t8*t9*t209+.6946333333333333*t4*t5*
        t6*t208;
    t254 = .1424666666666666*t1*t2*t3*t89*t91*t92*t93-.9999999999999999*
        t212*t58*t92*t93+2.0*t201*t58*t205*t93-.0028392769777778*t1*
        t2*t3*t210*t84-2.0*t118*t249*t252*t81+.0059059081777778*t1*
        t2*t3*t210*t65+32.1646831778707*t249*t81*t250*t251-16.0818243221511*
        t201*t58*t202*t203+t253*t81*t117*t118-.1369866666666666*t1*
        t2*t3*t89*t116*t117*t118;
    t255 = t67*t69*t70*t76*t254;
    t256 = 2.0*t108*t119*t67*t69*t70;
    t257 = -8.0*t111*t119*t67*t69*t76;
    t258 = 8.0*t113*t119*t67*t70*t76;
    t259 = t67*t69*t70*t237*t85;
    t260 = -8.0*t108*t111*t67*t69*t85;
    t261 = 20.0*t243*t67*t69*t76*t85;
    t262 = -32.0*t111*t113*t67*t76*t85;
    t263 = 12.0*t245*t67*t70*t76*t85;
    t264 = -1.0*t40*t192*t28*t45*rhoa+2.0*t40*t188*t28*t190*
        rhoa-32.1646831778707*t187*t188*t28*t189*rhoa+t56*(8.0*t108*
        t113*t67*t70*t85+t263+t262+t261+t260+t259+t258+t257+t256+t255+
        t248+t242+t241+t240+t239+t238+t225+t224+t223+t221+t220+t218+
        t217+t213+t207+t206+t204)+8.0*t113*t67*t70*t76*t85+2.0*t108*
        t67*t69*t70*t85+.0395035794051304*t67*t114*t72*t76*t79+.0395035794051304*
        t67*t71*t72*t108*t79-2.0*t40*t44*t28*t45-.0014196384888889*
        t1*t2*t3*t19*t43+t200+t199+t198+t197+t196+t195+.1369866666666666*
        t1*t2*t3*t40*t44*t45*t12;
    t265 = 1/pow(t52,4.0);
    t266 = .0219149333333333*t21*t185*t54-0.0017493168*t21*
        t185*t50*t53-6.839295999999999e-4*t20*t184*t53+9.706963200000001e-6*
        t21*t185*t51*t124+1.4692992e-5*t20*t184*t50*t124-6.35364864e-8*
        t20*t184*t51*t265;
    t267 = 2.666666666666667*t107*t228*t68-2.666666666666667*
        t104*t228*t68+.4444444444444444*t106*t160*t233+.4444444444444444*
        t103*t159*t227;
    t268 = 12.0*t245*t70+t244;
    t269 = -12.0*t245*t67*t70*t76*t85;
    t270 = t56*(-.5848223397455204*t67*t163*t95*t72*t96*t76*
        t97-.5848223397455204*t67*t114*t95*t72*t96*t76*t97-.5848223397455204*
        t67*t71*t95*t72*t96*t161*t97-.5848223397455204*t67*t71*t95*
        t72*t96*t108*t97+4.0*t113*t161*t67*t70*t85-4.0*t108*t113*t67*
        t70*t85-4.0*t111*t161*t67*t69*t85-4.0*t108*t111*t67*t69*t85+
        t67*t69*t70*t267*t85+.0197517897025652*t67*t268*t72*t76*t79-
        7.324622014701263e-4*t67*t1*t2*t3*t89*t163*t76*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t114*t76*t79+.0197517897025652*t67*t71*t72*
        t267*t79+.0197517897025652*t67*t114*t72*t161*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t71*t161*t79+.0197517897025652*t67*t163*t72*
        t108*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t108*t79+
        t269+t261+t257+t255+t242+t225+t223+t221+t220+t217+t213+t207+
        t206+t204+t67*t69*t70*t161*t119+t67*t69*t70*t108*t119)+t200+
        t199+t198+t197+t196+t195+t165+t164+t162+t121+t115+t109;
    t271 = -6.839295999999999e-4*t21*t48*t38*t53*t149+1.4692992e-5*
        t21*t48*t38*t50*t124*t149-6.35364864e-8*t21*t48*t38*t51*t265*
        t149;
    t272 = pow(grada,7.0);
    t273 = 1/pow(rhoa,11.66666666666667);
    t274 = -2.50528*grada*t26*t38+3.625237333333334*t170*
        t24*t37-1.261457066666667*t168*t35*t36+0.12732416*t272*t181*
        t273;
    t275 = -0.0108224*grada*t32*t38-1.254826666666667e-4*
        t170*t31*t37+2.207197866666666e-6*t168*t46*t36-6.128435199999999e-9*
        t272*t193*t273;
    t276 = -0.0119536*grada*t38*t54+9.541727999999999e-4*
        grada*t38*t50*t53+5.129471999999999e-4*t170*t37*t53-5.294707200000001e-6*
        grada*t38*t51*t124-1.1019744e-5*t170*t37*t50*t124+4.76523648e-8*
        t170*t37*t51*t265;
    t277 = 5.129471999999999e-4*t21*gradb*t38*t53*t49-1.1019744e-5*
        t21*gradb*t38*t50*t124*t49+4.76523648e-8*t21*gradb*t38*t51*
        t265*t49;
    t278 = pow(gradb,8.0);
    t279 = 1/pow(t136,4.0);
    t280 = 1/pow(rhob,12.66666666666667);
    t281 = 1/pow(rhob,10.0);
    t282 = 1/pow(rhob,7.333333333333333);
    t283 = 1/pow(rhob,4.666666666666667);
    t284 = 4.593013333333333*t48*t139*t283-5.61469511111111*
        t135*t137*t282+1.788046222222222*t145*t146*t281-.1697655466666667*
        t278*t279*t280;
    t285 = 1/pow(t131,2.0);
    t286 = pow(t155,2.0);
    t287 = 1/pow(t130,4.0);
    t288 = 1/pow(t130,3.0);
    t289 = 1/pow(rhob,2.333333333333333);
    t290 = 2.745341666666667*t14*t15*t16/pow(rhob,2.166666666666667)+
        1.262325*t8*t9/pow(t127,5.0)+.6946333333333333*t4*t5*t6*t49+
        2.754533333333333*t1*t2*t3*t289;
    t291 = 1/pow(t141,4.0);
    t292 = .0198410666666667*t48*t143*t283+2.095032888888889e-4*
        t135*t142*t282-3.198281955555555e-6*t145*t157*t281+8.171246933333332e-9*
        t278*t291*t280;
    t293 = -1.169644679491041*t67*t71*t95*t72*t96*t161*t97;
    t294 = -
        1.169644679491041*t67*t163*t95*t72*t96*t76*t97;
    t295 = pow(t159,2.0);
    t296 = t235+t229;
    t297 = pow(t160,2.0);
    t298 = t230+t234;
    t299 = 1.333333333333333*t107*t298+.4444444444444444*
        t233*t297+1.333333333333333*t104*t296+.4444444444444444*t227*
        t295;
    t300 = .0197517897025652*t67*t71*t72*t299*t79;
    t301 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t161*t79;
    t302 = .0395035794051304*
        t67*t163*t72*t161*t79;
    t303 = -.0014649244029403*t67*t1*t2*t3*t89*t163*t76*t79;
    t304 = t246+
        t244-32.0*t111*t113;
    t305 = .0197517897025652*t67*t304*t72*t76*t79;
    t306 = 2.0*t119*t161*t67*t69*t70;
    t307 = -8.0*t113*t119*t67*t70*t76;
    t308 = t67*t69*t70*t299*t85;
    t309 = -8.0*t111*t161*t67*t69*t85;
    t310 = 32.0*t111*t113*t67*t76*t85;
    t311 = 2.0*t151*t286*t133*t288*rhob-32.1646831778707*
        t285*t286*t133*t287*rhob-1.0*t151*t290*t133*t156*rhob+t56*
        (-8.0*t113*t161*t67*t70*t85+t310+t309+t308+t307+t306+t305+
        t303+t302+t301+t300+t294+t293+t263+t261+t257+t255+t242+t225+
        t223+t221+t220+t217+t213+t207+t206+t204)-8.0*t113*t67*t70*
        t76*t85+2.0*t161*t67*t69*t70*t85+.0395035794051304*t67*t163*
        t72*t76*t79+.0395035794051304*t67*t71*t72*t161*t79+t200+t199+
        t198+t197+t196+t195-2.0*t151*t155*t133*t156-.0014196384888889*
        t1*t2*t3*t132*t154+.1369866666666666*t1*t2*t3*t151*t155*t156*
        t129;
    t312 = .0219149333333333*t48*t54*t283-0.0017493168*t48*
        t50*t53*t283+9.706963200000001e-6*t48*t51*t124*t283-6.839295999999999e-4*
        t135*t53*t282+1.4692992e-5*t135*t50*t124*t282-6.35364864e-8*
        t135*t51*t265*t282;
    t313 = 5.129471999999999e-4*grada*t48*t22*t53*t149-1.1019744e-5*
        grada*t48*t22*t50*t124*t149+4.76523648e-8*grada*t48*t22*t51*
        t265*t149;
    t314 = pow(gradb,7.0);
    t315 = 1/pow(rhob,11.66666666666667);
    t316 = -2.50528*gradb*t139*t149+3.625237333333334*t176*
        t137*t148-1.261457066666667*t174*t146*t147+0.12732416*t314*
        t279*t315;
    t317 = -0.0108224*gradb*t143*t149-1.254826666666667e-4*
        t176*t142*t148+2.207197866666666e-6*t174*t157*t147-6.128435199999999e-9*
        t314*t291*t315;
    t318 = -0.0119536*gradb*t54*t149+9.541727999999999e-4*
        gradb*t50*t53*t149-5.294707200000001e-6*gradb*t51*t124*t149+
        5.129471999999999e-4*t176*t53*t148-1.1019744e-5*t176*t50*t124*
        t148+4.76523648e-8*t176*t51*t265*t148;
    t319 = 1/pow(rhoa,10.66666666666667);
    t320 = .9394800000000001*t26*t22-2.133144*t21*t24*t25+
        .8665152000000003*t20*t35*t169-0.09549312*t34*t181*t319;
    t321 = 0.0040584*
        t32*t22+6.246719999999999e-5*t21*t31*t25-1.4638848e-6*t20*
        t46*t169+4.5963264e-9*t34*t193*t319;
    t322 = 0.0044826*t22*t54-3.578148e-4*t22*t50*t53-3.847104000000001e-4*
        t21*t25*t53+1.9855152e-6*t22*t51*t124+8.264808e-6*t21*t25*
        t50*t124-3.57392736e-8*t21*t25*t51*t265;
    t323 = -3.847104000000001e-4*grada*gradb*t22*t53*t49+
        8.264808e-6*grada*gradb*t22*t50*t124*t49-3.57392736e-8*grada*
        gradb*t22*t51*t265*t49;
    t324 = 1/pow(rhob,10.66666666666667);
    t325 = .9394800000000001*t139*t49-2.133144*t48*t137*t138+
        .8665152000000003*t135*t146*t175-0.09549312*t145*t279*t324;
    t326 = 0.0040584*
        t143*t49+6.246719999999999e-5*t48*t142*t138-1.4638848e-6*t135*
        t157*t175+4.5963264e-9*t145*t291*t324;
    t327 = 0.0044826*t54*t49-3.578148e-4*t50*t53*t49+1.9855152e-6*
        t51*t124*t49-3.847104000000001e-4*t48*t53*t138+8.264808e-6*
        t48*t50*t124*t138-3.57392736e-8*t48*t51*t265*t138;
    t328 = pow(grada,10.0);
    t329 = 1/pow(t23,5.0);
    t330 = 1/pow(rhoa,16.33333333333333);
    t331 = 1/pow(rhoa,13.66666666666667);
    t332 = 1/pow(rhoa,11.0);
    t333 = 1/pow(rhoa,8.333333333333334);
    t334 = 1/pow(rhoa,5.666666666666667);
    t335 = -21.43406222222222*t21*t26*t334+43.62403792592593*
        t20*t24*t333-23.86947034074074*t34*t35*t332+5.011237546666668*
        t180*t181*t331-.3621664995555556*t328*t329*t330;
    t336 = 1/pow(t18,3.0);
    t337 = pow(t44,3.0);
    t338 = 1/pow(t17,6.0);
    t339 = 1/pow(t17,5.0);
    t340 = 1/pow(rhoa,3.333333333333333);
    t341 = -5.948240277777777*t14*t15*t16/pow(rhoa,3.166666666666667)-
        3.1558125*t8*t9/pow(t10,7.0)-1.852355555555556*t4*t5*t6*t38-
        6.427244444444445*t1*t2*t3*t340;
    t342 = 1/pow(t30,5.0);
    t343 = -.0925916444444444*t21*t32*t334-.0013247194074074*
        t20*t31*t333+3.645222305185185e-5*t34*t46*t332-2.058474837333333e-7*
        t180*t193*t331+3.48639869155556e-10*t328*t342*t330;
    t344 = 48.2454729664533*t201*t58*t202*t203;
    t345 = -6.0*t201*t58*t205*t93;
    t346 = -.4273999999999999*t1*t2*t3*t89*t91*t92*t93;
    t347 = 3.0*
        t212*t58*t92*t93;
    t348 = -51.9472676981276*t67*t71*t214*t72*t215*t76*t216;
    t349 = 3.508934038473122*
        t67*t71*t214*t72*t219*t76*t97;
    t350 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
        t76*t97;
    t351 = -1.754467019236561*t67*t71*t222*t72*t96*t76*t97;
    t352 = -
        .0177177245333333*t1*t2*t3*t210*t65;
    t353 = .0029298488058805*t67*t1*t2*t3*t210*t71*t76*t79;
    t354 = 3.0*
        t254*t67*t69*t70*t76;
    t355 = -24.0*t111*t119*t67*t69*t76;
    t356 = 60.0*t243*t67*t69*t76*t85;
    t357 = 36.0*t245*t67*t70*t76*t85;
    t358 = pow(t91,3.0);
    t359 = 1/pow(t63,6.0);
    t360 = 1/pow(t64,3.0);
    t361 = 517.2501470570614*t358*t58*t359*t360;
    t362 = 1/pow(t63,5.0);
    t363 = -96.4909459329066*t358*t58*t362*t203;
    t364 = -3.43668585764369*t1*t2*t3*t89*t201*t202*t203;
    t365 = 48.2454729664533*
        t212*t91*t58*t202*t203;
    t366 = 6.0*t358*t58*t202*t93;
    t367 = .4273999999999999*t1*t2*t3*t89*t201*t205*t93;
    t368 = -
        6.0*t212*t91*t58*t205*t93;
    t369 = -0.2137*t1*t2*t3*t89*t212*t92*t93;
    t370 = .2849333333333333*t1*t2*t3*t210*t91*t92*t93;
    t371 = 1/
        pow(t56,3.666666666666667);
    t372 = 1/pow(t60,7.0);
    t373 = 1/pow(t56,3.333333333333333);
    t374 = 1/pow(t56,3.166666666666667);
    t375 = -3.200040277777777*t14*t15*t16*t374-3.720474074074074*
        t1*t2*t3*t373-1.5358125*t8*t9*t372-1.460562962962963*t4*t5*
        t6*t371;
    t376 = .9999999999999999*t375*t58*t92*t93;
    t377 = pow(t95,3.0);
    t378 = 1/pow(t77,6.0);
    t379 = 1/pow(t78,3.0);
    t380 = -1025.38970210078*t67*t71*t377*t72*t378*t76*t379;
    t381 = -
        51.9472676981276*t67*t71*t214*t72*t215*t108*t216;
    t382 = 1/pow(t77,5.0);
    t383 = 103.8945353962552*t67*t71*t377*t72*t382*t76*t216;
    t384 = 1.926377843805565*
        t67*t1*t2*t3*t89*t71*t214*t215*t76*t216;
    t385 = -51.9472676981276*t67*t71*t222*t95*t72*t215*t76*
        t216;
    t386 = -51.9472676981276*t67*t114*t214*t72*t215*t76*t216;
    t387 = 3.508934038473122*
        t67*t71*t214*t72*t219*t108*t97;
    t388 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
        t108*t97;
    t389 = -1.754467019236561*t67*t71*t222*t72*t96*t108*t97;
    t390 = -
        3.508934038473122*t67*t71*t377*t72*t215*t76*t97;
    t391 = -.1301229705933783*t67*t1*t2*t3*t89*t71*t214*t219*
        t76*t97;
    t392 = 3.508934038473122*t67*t71*t222*t95*t72*t219*t76*
        t97;
    t393 = 3.508934038473122*t67*t114*t214*t72*t219*t76*t97;
    t394 = .0650614852966891*
        t67*t1*t2*t3*t89*t71*t222*t96*t76*t97;
    t395 = .1301229705933783*t67*t1*t2*t3*t89*t114*t95*t96*
        t76*t97;
    t396 = -.0867486470622522*t67*t1*t2*t3*t210*t71*t95*t96*
        t76*t97;
    t397 = -4.36336574074074*t14*t15*t16*t374-3.757288888888889*
        t1*t2*t3*t373-0.82524375*t8*t9*t372-1.471733333333333*t4*t5*
        t6*t371;
    t398 = -.5848223397455204*t67*t71*t397*t72*t96*t76*t97;
    t399 = -
        1.754467019236561*t67*t114*t222*t72*t96*t76*t97;
    t400 = .0137804524148148*t1*t2*t3*t373*t65;
    t401 = pow(t103,3.0);
    t402 = 1/pow(t74,1.666666666666667);
    t403 = 6.0*t68*t70;
    t404 = -6.0*t228;
    t405 = t404+t403;
    t406 = pow(t106,3.0);
    t407 = 1/pow(t75,1.666666666666667);
    t408 = -6.0*t68*t70;
    t409 = 6.0*t228;
    t410 = t409+t408;
    t411 = 1.333333333333333*t107*t410-.2962962962962963*
        t406*t407+1.333333333333333*t104*t405-.2962962962962963*t401*
        t402+1.333333333333333*t106*t233*t236+1.333333333333333*t103*
        t227*t231;
    t412 = .0197517897025652*t67*t71*t72*t411*t79;
    t413 = .0592553691076956*t67*t114*t72*t237*t79;
    t414 = .0029298488058805*t67*t1*t2*t3*t210*t71*t108*t79;
    t415 = .0592553691076956*
        t67*t247*t72*t108*t79;
    t416 = .0029298488058805*t67*t1*t2*t3*t210*t114*t76*t79;
    t417 = -
        .0022787712934626*t67*t1*t2*t3*t373*t71*t76*t79;
    t418 = 1/pow(t56,7.0);
    t419 = 120.0*t418*t69;
    t420 = 144.0*t111*t245;
    t421 = -24.0*t68*t70;
    t422 = t421+t420+t419-240.0*t113*t243;
    t423 = .0197517897025652*t67*t422*t72*t76*t79;
    t424 = pow(t116,3.0);
    t425 = 1/pow(t82,6.0);
    t426 = 1/pow(t83,3.0);
    t427 = 1/pow(t82,5.0);
    t428 = -5.948240277777777*t14*t15*t16*t374-6.427244444444445*
        t1*t2*t3*t373-3.1558125*t8*t9*t372-1.852355555555556*t4*t5*
        t6*t371;
    t429 = -.2849333333333333*t1*t2*t3*t210*t91*t92*t93-.9999999999999999*
        t375*t58*t92*t93+0.2137*t1*t2*t3*t89*t212*t92*t93+6.0*t212*
        t91*t58*t205*t93-.4273999999999999*t1*t2*t3*t89*t201*t205*
        t93-6.0*t358*t58*t202*t93+.0066249796148148*t1*t2*t3*t373*
        t84+6.0*t118*t250*t424*t81-6.0*t116*t118*t252*t253*t81-.0137804524148148*
        t1*t2*t3*t373*t65+2069.133687865597*t424*t81*t425*t426-517.2501470570614*
        t358*t58*t359*t360-192.9880990672242*t424*t81*t427*t251+96.4940495336121*
        t253*t116*t81*t250*t251-6.60919909938887*t1*t2*t3*t89*t249*
        t250*t251+96.4909459329066*t358*t58*t362*t203-48.2454729664533*
        t212*t91*t58*t202*t203+3.43668585764369*t1*t2*t3*t89*t201*
        t202*t203+.4109599999999999*t1*t2*t3*t89*t249*t252*t118+t428*
        t81*t117*t118-0.20548*t1*t2*t3*t89*t253*t117*t118+.2739733333333333*
        t1*t2*t3*t210*t116*t117*t118;
    t430 = t67*t69*t70*t76*t429;
    t431 = 3.0*t108*t254*t67*t69*t70;
    t432 = -12.0*t111*t254*t67*t69*t76;
    t433 = -24.0*t108*t111*t119*t67*t69;
    t434 = 24.0*t108*t113*t119*t67*t70;
    t435 = 60.0*t119*t243*t67*t69*t76;
    t436 = 36.0*t119*t245*t67*t70*t76;
    t437 = t67*t69*t70*t411*t85;
    t438 = 60.0*t108*t243*t67*t69*t85;
    t439 = -96.0*t108*t111*t113*t67*t85;
    t440 = 36.0*t108*t245*t67*t70*t85;
    t441 = -120.0*t418*t67*t69*t76*t85;
    t442 = -144.0*t111*t245*t67*t76*t85;
    t443 = 24.0*t67*t68*t70*t76*t85;
    t444 = -1.0*t40*t341*t28*t45*rhoa+192.9880990672242*t187*
        t337*t28*t339*rhoa-2069.133687865597*t336*t337*t28*t338*rhoa+
        6.0*t40*t192*t44*t28*t190*rhoa-96.4940495336121*t187*t192*
        t44*t28*t189*rhoa-6.0*t40*t337*t28*t189*rhoa+t56*(-1.754467019236561*
        t67*t247*t95*t72*t96*t76*t97-1.754467019236561*t67*t71*t95*
        t72*t96*t237*t97-3.508934038473122*t67*t114*t95*t72*t96*t108*
        t97+240.0*t113*t243*t67*t76*t85+12.0*t113*t237*t67*t70*t85-
        12.0*t111*t237*t67*t69*t85-.0021973866044104*t67*t1*t2*t3*
        t89*t247*t76*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*t237*
        t79-.0043947732088208*t67*t1*t2*t3*t89*t114*t108*t79+12.0*
        t113*t254*t67*t70*t76-96.0*t111*t113*t119*t67*t76+3.0*t119*
        t237*t67*t69*t70+t443+t442+t441+t440+t439+t438+t437+t436+t435+
        t434+t433+t432+t431+t430+t423+t417+t416+t415+t414+t413+t412+
        t400+t399+t398+t396+t395+t394+t393+t392+t391+t390+t389+t388+
        t387+t386+t385+t384+t383+t381+t380+t376+t370+t369+t368+t367+
        t366+t365+t364+t363+t361)-3.508934038473122*t67*t114*t95*t72*
        t96*t76*t97-3.508934038473122*t67*t71*t95*t72*t96*t108*t97-
        96.0*t111*t113*t67*t76*t85+3.0*t237*t67*t69*t70*t85+24.0*t108*
        t113*t67*t70*t85-24.0*t108*t111*t67*t69*t85+.0592553691076956*
        t67*t247*t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t114*
        t76*t79+.0592553691076956*t67*t71*t72*t237*t79+.1185107382153912*
        t67*t114*t72*t108*t79-.0043947732088208*t67*t1*t2*t3*t89*t71*
        t108*t79+24.0*t113*t119*t67*t70*t76+6.0*t108*t119*t67*t69*
        t70-3.0*t40*t192*t28*t45+.1369866666666666*t1*t2*t3*t40*t44*
        t45*t43+t357+t356+t355+t354+t353+t352+t351+t350+t349+t348+
        t347+t346+t345+t344+.0018928513185185*t1*t2*t3*t19*t191+6.0*
        t40*t188*t28*t190-96.4940495336121*t187*t188*t28*t189+0.20548*
        t1*t2*t3*t40*t192*t45*t12-.4109599999999999*t1*t2*t3*t40*t188*
        t190*t12+6.60919909938887*t1*t2*t3*t187*t188*t189*t12;
    t445 = 1/pow(t52,5.0);
    t446 = -.1022696888888889*t21*t334*t54+0.0081634784*t21*
        t334*t50*t53+0.0075232256*t20*t333*t53-4.52991616e-5*t21*t334*
        t51*t124-1.61622912e-4*t20*t333*t50*t124-3.05335296e-5*t34*
        t332*t124+6.989013504000001e-7*t20*t333*t51*t265+5.220624384000001e-7*
        t34*t332*t50*t265-2.0331675648e-9*t34*t332*t51*t445;
    t447 = .0395035794051304*t67*t71*t72*t267*t79;
    t448 = .0395035794051304*t67*t114*t72*t161*t79;
    t449 = .0395035794051304*t67*t163*t72*t108*t79;
    t450 = .0395035794051304*t67*t268*t72*t76*t79;
    t451 = 2.0*t267*t67*t69*t70*t85;
    t452 = -1.169644679491041*t67*t71*t95*t72*t96*t267*t97;
    t453 = -
        1.169644679491041*t67*t114*t95*t72*t96*t161*t97;
    t454 = -1.169644679491041*t67*t163*t95*t72*t96*t108*t97;
    t455 = -
        1.169644679491041*t67*t268*t95*t72*t96*t76*t97;
    t456 = -.0014649244029403*t67*t1*t2*t3*t89*t71*t267*t79;
    t457 = t403-
        2.0*t228;
    t458 = t408+2.0*t228;
    t459 = 1.777777777777778*t106*t228*t233*t68-1.777777777777778*
        t103*t227*t228*t68+1.333333333333333*t107*t458+1.333333333333333*
        t104*t457-.2962962962962963*t160*t232*t407-.2962962962962963*
        t159*t226*t402+.4444444444444444*t160*t233*t236+.4444444444444444*
        t159*t227*t231;
    t460 = -.0014649244029403*t67*t1*t2*t3*t89*t114*t161*
        t79;
    t461 = -.0014649244029403*t67*t1*t2*t3*t89*t163*t108*
        t79;
    t462 = -.0014649244029403*t67*t1*t2*t3*t89*t268*t76*t79;
    t463 = -
        48.0*t111*t245;
    t464 = 24.0*t68*t70;
    t465 = t464+t463+t419-80.0*t113*t243;
    t466 = 2.0*t119*t267*t67*t69*t70;
    t467 = -12.0*t119*t245*t67*t70*t76;
    t468 = -8.0*t111*t267*t67*t69*t85;
    t469 = -24.0*t108*t245*t67*t70*t85;
    t470 = 48.0*t111*t245*t67*t76*t85;
    t471 = -24.0*t67*t68*t70*t76*t85;
    t472 = t56*(.0433743235311261*t67*t1*t2*t3*t89*t163*t95*
        t96*t76*t97+.0867486470622522*t67*t1*t2*t3*t89*t114*t95*t96*
        t76*t97-.5848223397455204*t67*t247*t95*t72*t96*t76*t97-.5848223397455204*
        t67*t163*t222*t72*t96*t76*t97-1.169644679491041*t67*t114*t222*
        t72*t96*t76*t97+1.169644679491041*t67*t163*t214*t72*t219*t76*
        t97+2.339289358982082*t67*t114*t214*t72*t219*t76*t97-.5848223397455204*
        t67*t71*t95*t72*t96*t237*t97+.0433743235311261*t67*t1*t2*t3*
        t89*t71*t95*t96*t161*t97-.5848223397455204*t67*t71*t222*t72*
        t96*t161*t97+1.169644679491041*t67*t71*t214*t72*t219*t161*
        t97+.0867486470622522*t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-
        1.169644679491041*t67*t114*t95*t72*t96*t108*t97-1.169644679491041*
        t67*t71*t222*t72*t96*t108*t97+2.339289358982082*t67*t71*t214*
        t72*t219*t108*t97+80.0*t113*t243*t67*t76*t85+8.0*t113*t267*
        t67*t70*t85+12.0*t161*t245*t67*t70*t85-4.0*t113*t237*t67*t70*
        t85+20.0*t161*t243*t67*t69*t85+40.0*t108*t243*t67*t69*t85-
        4.0*t111*t237*t67*t69*t85-32.0*t111*t113*t161*t67*t85+t67*
        t69*t70*t459*t85+.0197517897025652*t67*t465*t72*t76*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t247*t76*t79+9.766162686268349e-4*t67*t1*
        t2*t3*t210*t163*t76*t79+.0019532325372537*t67*t1*t2*t3*t210*
        t114*t76*t79+.0197517897025652*t67*t71*t72*t459*t79+.0395035794051304*
        t67*t114*t72*t267*t79+.0197517897025652*t67*t163*t72*t237*
        t79-7.324622014701263e-4*t67*t1*t2*t3*t89*t71*t237*t79+.0197517897025652*
        t67*t247*t72*t161*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
        t71*t161*t79+.0395035794051304*t67*t268*t72*t108*t79+.0019532325372537*
        t67*t1*t2*t3*t210*t71*t108*t79-.0014649244029403*t67*t1*t2*
        t3*t89*t114*t108*t79+4.0*t113*t254*t67*t70*t76-32.0*t111*t113*
        t119*t67*t76+2.0*t108*t254*t67*t69*t70+8.0*t113*t119*t161*
        t67*t70-8.0*t111*t119*t161*t67*t69-16.0*t108*t111*t119*t67*
        t69+t471+t470+t469+t468+t467+t466+t462+t461+t460+t456+t455+
        t454+t453+t452+t441+t435+t432+t430+t417+t400+t398+t396+t394+
        t392+t391+t390+t385+t384+t383+t380+t376+t370+t369+t368+t367+
        t366+t365+t364+t363+t361+t67*t69*t70*t161*t254-17.31575589937587*
        t67*t163*t214*t72*t215*t76*t216-34.63151179875173*t67*t114*
        t214*t72*t215*t76*t216-17.31575589937587*t67*t71*t214*t72*
        t215*t161*t216-34.63151179875173*t67*t71*t214*t72*t215*t108*
        t216+t67*t69*t70*t237*t119)-2.339289358982082*t67*t114*t95*
        t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t108*
        t97+8.0*t113*t161*t67*t70*t85-16.0*t108*t111*t67*t69*t85-.0029298488058805*
        t67*t1*t2*t3*t89*t114*t76*t79-.0029298488058805*t67*t1*t2*
        t3*t89*t71*t108*t79+4.0*t108*t119*t67*t69*t70+t451+t450+t449+
        t448+t447+t356+t355+t354+t353+t352+t351+t350+t349+t348+t347+
        t346+t345+t344+t309+t306+t303+t301+t294+t293+t269+t262+t259+
        t258+t248+t240+t238;
    t473 = .0025077418666667*t21*t48*t185*t53*t149-5.3874304e-5*
        t21*t48*t185*t50*t124*t149-3.05335296e-5*t20*t48*t184*t124*
        t149+2.329671168e-7*t21*t48*t185*t51*t265*t149+5.220624384000001e-7*
        t20*t48*t184*t50*t265*t149-2.0331675648e-9*t20*t48*t184*t51*
        t445*t149;
    t474 = pow(grada,9.0);
    t475 = 1/pow(rhoa,15.33333333333333);
    t476 = 9.186026666666667*grada*t26*t185-24.29598577777778*
        t170*t24*t184+15.22003342222222*t168*t35*t183-3.503779840000001*
        t272*t181*t182+.2716248746666667*t474*t329*t475;
    t477 = .0396821333333333*grada*t32*t185+6.792846222222222e-4*
        t170*t31*t184-2.254174435555555e-5*t168*t46*t183+1.421287424e-7*
        t272*t193*t182-2.61479901866667e-10*t474*t342*t475;
    t478 = .0438298666666667*grada*t185*t54-0.0034986336*
        grada*t185*t50*t53-0.0046165248*t170*t184*t53+1.94139264e-5*
        grada*t185*t51*t124+9.9177696e-5*t170*t184*t50*t124+2.29001472e-5*
        t168*t183*t124-4.288712832e-7*t170*t184*t51*t265-3.915468288e-7*
        t168*t183*t50*t265+1.5248756736e-9*t168*t183*t51*t445;
    t479 = -0.0018808064*t21*gradb*t185*t53*t49+4.0405728e-5*
        t21*gradb*t185*t50*t124*t49+2.29001472e-5*t20*gradb*t184*t124*
        t49-1.747253376e-7*t21*gradb*t185*t51*t265*t49-3.915468288e-7*
        t20*gradb*t184*t50*t265*t49+1.5248756736e-9*t20*gradb*t184*
        t51*t445*t49;
    t480 = -8.0*t107*t68*t70+8.0*t104*t68*t70+1.777777777777778*
        t160*t228*t233*t68-1.777777777777778*t159*t227*t228*t68-.2962962962962963*
        t106*t297*t407-.2962962962962963*t103*t295*t402+.4444444444444444*
        t106*t233*t298+.4444444444444444*t103*t227*t296-2.666666666666667*
        t107*t228+2.666666666666667*t104*t228;
    t481 = t463+t421+t419+80.0*t113*t243;
    t482 = -24.0*t161*t245*t67*t70*t85;
    t483 = t56*(.0867486470622522*t67*t1*t2*t3*t89*t163*t95*
        t96*t76*t97+.0433743235311261*t67*t1*t2*t3*t89*t114*t95*t96*
        t76*t97-.5848223397455204*t67*t304*t95*t72*t96*t76*t97-1.169644679491041*
        t67*t163*t222*t72*t96*t76*t97-.5848223397455204*t67*t114*t222*
        t72*t96*t76*t97+2.339289358982082*t67*t163*t214*t72*t219*t76*
        t97+1.169644679491041*t67*t114*t214*t72*t219*t76*t97-.5848223397455204*
        t67*t71*t95*t72*t96*t299*t97+.0867486470622522*t67*t1*t2*t3*
        t89*t71*t95*t96*t161*t97-1.169644679491041*t67*t163*t95*t72*
        t96*t161*t97-1.169644679491041*t67*t71*t222*t72*t96*t161*t97+
        2.339289358982082*t67*t71*t214*t72*t219*t161*t97+.0433743235311261*
        t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-.5848223397455204*t67*
        t71*t222*t72*t96*t108*t97+1.169644679491041*t67*t71*t214*t72*
        t219*t108*t97-80.0*t113*t243*t67*t76*t85+4.0*t113*t299*t67*
        t70*t85-8.0*t113*t267*t67*t70*t85+12.0*t108*t245*t67*t70*t85-
        4.0*t111*t299*t67*t69*t85+40.0*t161*t243*t67*t69*t85+20.0*
        t108*t243*t67*t69*t85+32.0*t108*t111*t113*t67*t85+t67*t69*
        t70*t480*t85+.0197517897025652*t67*t481*t72*t76*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t304*t76*t79+.0019532325372537*t67*t1*t2*
        t3*t210*t163*t76*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
        t114*t76*t79+.0197517897025652*t67*t71*t72*t480*t79+.0197517897025652*
        t67*t114*t72*t299*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*
        t71*t299*t79+.0395035794051304*t67*t163*t72*t267*t79+.0395035794051304*
        t67*t268*t72*t161*t79+.0019532325372537*t67*t1*t2*t3*t210*
        t71*t161*t79-.0014649244029403*t67*t1*t2*t3*t89*t163*t161*
        t79+.0197517897025652*t67*t304*t72*t108*t79+9.766162686268349e-4*
        t67*t1*t2*t3*t210*t71*t108*t79-4.0*t113*t254*t67*t70*t76+32.0*
        t111*t113*t119*t67*t76+2.0*t161*t254*t67*t69*t70-8.0*t108*
        t113*t119*t67*t70-16.0*t111*t119*t161*t67*t69-8.0*t108*t111*
        t119*t67*t69+t482+t470+t468+t467+t466+t462+t461+t460+t456+
        t455+t454+t453+t452+t443+t441+t435+t432+t430+t417+t400+t398+
        t396+t394+t392+t391+t390+t385+t384+t383+t380+t376+t370+t369+
        t368+t367+t366+t365+t364+t363+t361+t67*t69*t70*t108*t254-34.63151179875173*
        t67*t163*t214*t72*t215*t76*t216-17.31575589937587*t67*t114*
        t214*t72*t215*t76*t216-34.63151179875173*t67*t71*t214*t72*
        t215*t161*t216-17.31575589937587*t67*t71*t214*t72*t215*t108*
        t216+t67*t69*t70*t299*t119)-2.339289358982082*t67*t163*t95*
        t72*t96*t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t161*
        t97-8.0*t108*t113*t67*t70*t85-16.0*t111*t161*t67*t69*t85-.0029298488058805*
        t67*t1*t2*t3*t89*t163*t76*t79-.0029298488058805*t67*t1*t2*
        t3*t89*t71*t161*t79+4.0*t119*t161*t67*t69*t70+t451+t450+t449+
        t448+t447+t356+t355+t354+t353+t352+t351+t350+t349+t348+t347+
        t346+t345+t344+t310+t308+t307+t305+t302+t300+t269+t260+t256+
        t241+t239+t224+t218;
    t484 = .0025077418666667*t21*t48*t38*t53*t283-5.3874304e-5*
        t21*t48*t38*t50*t124*t283+2.329671168e-7*t21*t48*t38*t51*t265*
        t283-3.05335296e-5*t21*t135*t38*t124*t282+5.220624384000001e-7*
        t21*t135*t38*t50*t265*t282-2.0331675648e-9*t21*t135*t38*t51*
        t445*t282;
    t485 = -0.0013678592*grada*t48*t38*t53*t149+2.9385984e-5*
        grada*t48*t38*t50*t124*t149+2.29001472e-5*t170*t48*t37*t124*
        t149-1.270729728e-7*grada*t48*t38*t51*t265*t149-3.915468288e-7*
        t170*t48*t37*t50*t265*t149+1.5248756736e-9*t170*t48*t37*t51*
        t445*t149;
    t486 = -0.0013678592*t21*gradb*t38*t53*t149+2.9385984e-5*
        t21*gradb*t38*t50*t124*t149-1.270729728e-7*t21*gradb*t38*t51*
        t265*t149+2.29001472e-5*t21*t176*t38*t124*t148-3.915468288e-7*
        t21*t176*t38*t50*t265*t148+1.5248756736e-9*t21*t176*t38*t51*
        t445*t148;
    t487 = 1/pow(rhoa,14.33333333333333);
    t488 = -2.50528*t26*t38+11.877824*t21*t24*t37-9.207475200000001*
        t20*t35*t36+2.405017600000001*t34*t181*t273-.2037186560000001*
        t180*t329*t487;
    t489 = -0.0108224*t32*t38-2.898687999999999e-4*t21*t31*
        t37+1.3043712e-5*t20*t46*t36-9.587179519999999e-8*t34*t193*
        t273+1.961099264e-10*t180*t342*t487;
    t490 = -0.0119536*t38*t54+9.541727999999999e-4*t38*t50*
        t53+0.002564736*t21*t37*t53-5.294707200000001e-6*t38*t51*t124-
        5.509872e-5*t21*t37*t50*t124-1.71751104e-5*t20*t36*t124+2.38261824e-7*
        t21*t37*t51*t265+2.936601216e-7*t20*t36*t50*t265-1.1436567552e-9*
        t20*t36*t51*t445;
    t491 = 0.0010258944*grada*gradb*t38*t53*t49-2.2039488e-5*
        grada*gradb*t38*t50*t124*t49-1.71751104e-5*t170*gradb*t37*
        t124*t49+9.53047296e-8*grada*gradb*t38*t51*t265*t49+2.936601216e-7*
        t170*gradb*t37*t50*t265*t49-1.1436567552e-9*t170*gradb*t37*
        t51*t445*t49;
    t492 = 5.129471999999999e-4*t21*t38*t53*t49-1.1019744e-5*
        t21*t38*t50*t124*t49+4.76523648e-8*t21*t38*t51*t265*t49-1.71751104e-5*
        t21*t48*t38*t124*t138+2.936601216e-7*t21*t48*t38*t50*t265*
        t138-1.1436567552e-9*t21*t48*t38*t51*t445*t138;
    t493 = pow(gradb,10.0);
    t494 = 1/pow(t136,5.0);
    t495 = 1/pow(rhob,16.33333333333333);
    t496 = 1/pow(rhob,13.66666666666667);
    t497 = 1/pow(rhob,11.0);
    t498 = 1/pow(rhob,8.333333333333334);
    t499 = 1/pow(rhob,5.666666666666667);
    t500 = -21.43406222222222*t48*t139*t499+43.62403792592593*
        t135*t137*t498-23.86947034074074*t145*t146*t497+5.011237546666668*
        t278*t279*t496-.3621664995555556*t493*t494*t495;
    t501 = 1/pow(t131,3.0);
    t502 = pow(t155,3.0);
    t503 = 1/pow(t130,6.0);
    t504 = 1/pow(t130,5.0);
    t505 = 1/pow(rhob,3.333333333333333);
    t506 = -5.948240277777777*t14*t15*t16/pow(rhob,3.166666666666667)-
        3.1558125*t8*t9/pow(t127,7.0)-6.427244444444445*t1*t2*t3*t505-
        1.852355555555556*t4*t5*t6*t149;
    t507 = 1/pow(t141,5.0);
    t508 = -.0925916444444444*t48*t143*t499-.0013247194074074*
        t135*t142*t498+3.645222305185185e-5*t145*t157*t497-2.058474837333333e-7*
        t278*t291*t496+3.48639869155556e-10*t493*t507*t495;
    t509 = -51.9472676981276*t67*t71*t214*t72*t215*t161*t216;
    t510 = -
        51.9472676981276*t67*t163*t214*t72*t215*t76*t216;
    t511 = 3.508934038473122*t67*t71*t214*t72*t219*t161*t97;
    t512 = .1301229705933783*
        t67*t1*t2*t3*t89*t71*t95*t96*t161*t97;
    t513 = -1.754467019236561*t67*t71*t222*t72*t96*t161*t97;
    t514 = 3.508934038473122*
        t67*t163*t214*t72*t219*t76*t97;
    t515 = .1301229705933783*t67*t1*t2*t3*t89*t163*t95*t96*
        t76*t97;
    t516 = -1.754467019236561*t67*t163*t222*t72*t96*t76*t97;
    t517 = pow(t159,
        3.0);
    t518 = t409+t403;
    t519 = pow(t160,3.0);
    t520 = t404+t408;
    t521 = 1.333333333333333*t107*t520-.2962962962962963*
        t407*t519+1.333333333333333*t104*t518-.2962962962962963*t402*
        t517+1.333333333333333*t160*t233*t298+1.333333333333333*t159*
        t227*t296;
    t522 = .0197517897025652*t67*t71*t72*t521*t79;
    t523 = .0592553691076956*t67*t163*t72*t299*t79;
    t524 = .0029298488058805*t67*t1*t2*t3*t210*t71*t161*t79;
    t525 = .0592553691076956*
        t67*t304*t72*t161*t79;
    t526 = .0029298488058805*t67*t1*t2*t3*t210*t163*t76*t79;
    t527 = t464+
        t420+t419+240.0*t113*t243;
    t528 = .0197517897025652*t67*t527*t72*t76*t79;
    t529 = 3.0*t161*t254*t67*t69*t70;
    t530 = -24.0*t111*t119*t161*t67*t69;
    t531 = -24.0*t113*t119*t161*t67*t70;
    t532 = t67*t69*t70*t521*t85;
    t533 = 60.0*t161*t243*t67*t69*t85;
    t534 = 96.0*t111*t113*t161*t67*t85;
    t535 = 36.0*t161*t245*t67*t70*t85;
    t536 = 192.9880990672242*t285*t502*t133*t504*rhob-2069.133687865597*
        t501*t502*t133*t503*rhob+6.0*t151*t290*t155*t133*t288*rhob-
        6.0*t151*t502*t133*t287*rhob-96.4940495336121*t285*t290*t155*
        t133*t287*rhob-1.0*t151*t506*t133*t156*rhob+t56*(-1.754467019236561*
        t67*t304*t95*t72*t96*t76*t97-1.754467019236561*t67*t71*t95*
        t72*t96*t299*t97-3.508934038473122*t67*t163*t95*t72*t96*t161*
        t97-240.0*t113*t243*t67*t76*t85-12.0*t113*t299*t67*t70*t85-
        12.0*t111*t299*t67*t69*t85-.0021973866044104*t67*t1*t2*t3*
        t89*t304*t76*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*t299*
        t79-.0043947732088208*t67*t1*t2*t3*t89*t163*t161*t79-12.0*
        t113*t254*t67*t70*t76+96.0*t111*t113*t119*t67*t76+3.0*t119*
        t299*t67*t69*t70+t535+t534+t533+t532+t531+t530+t529+t528+t526+
        t525+t524+t523+t522+t516+t515+t514+t513+t512+t511+t510+t509+
        t471+t442+t441+t436+t435+t432+t430+t417+t400+t398+t396+t394+
        t392+t391+t390+t385+t384+t383+t380+t376+t370+t369+t368+t367+
        t366+t365+t364+t363+t361)-3.508934038473122*t67*t163*t95*t72*
        t96*t76*t97-3.508934038473122*t67*t71*t95*t72*t96*t161*t97+
        96.0*t111*t113*t67*t76*t85+3.0*t299*t67*t69*t70*t85-24.0*t113*
        t161*t67*t70*t85-24.0*t111*t161*t67*t69*t85+.0592553691076956*
        t67*t304*t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t163*
        t76*t79+.0592553691076956*t67*t71*t72*t299*t79+.1185107382153912*
        t67*t163*t72*t161*t79-.0043947732088208*t67*t1*t2*t3*t89*t71*
        t161*t79-24.0*t113*t119*t67*t70*t76+6.0*t119*t161*t67*t69*
        t70+t357+t356+t355+t354+t353+t352+t351+t350+t349+t348+t347+
        t346+t345+t344+.0018928513185185*t1*t2*t3*t132*t289+6.0*t151*
        t286*t133*t288-96.4940495336121*t285*t286*t133*t287-3.0*t151*
        t290*t133*t156+.1369866666666666*t1*t2*t3*t151*t155*t156*t154-
        .4109599999999999*t1*t2*t3*t151*t286*t288*t129+6.60919909938887*
        t1*t2*t3*t285*t286*t287*t129+0.20548*t1*t2*t3*t151*t290*t156*
        t129;
    t537 = -.1022696888888889*t48*t54*t499+0.0081634784*t48*
        t50*t53*t499-4.52991616e-5*t48*t51*t124*t499+0.0075232256*
        t135*t53*t498-1.61622912e-4*t135*t50*t124*t498+6.989013504000001e-7*
        t135*t51*t265*t498-3.05335296e-5*t145*t124*t497+5.220624384000001e-7*
        t145*t50*t265*t497-2.0331675648e-9*t145*t51*t445*t497;
    t538 = -0.0018808064*grada*t48*t22*t53*t283+4.0405728e-5*
        grada*t48*t22*t50*t124*t283-1.747253376e-7*grada*t48*t22*t51*
        t265*t283+2.29001472e-5*grada*t135*t22*t124*t282-3.915468288e-7*
        grada*t135*t22*t50*t265*t282+1.5248756736e-9*grada*t135*t22*
        t51*t445*t282;
    t539 = pow(gradb,9.0);
    t540 = 1/pow(rhob,15.33333333333333);
    t541 = 9.186026666666667*gradb*t139*t283-24.29598577777778*
        t176*t137*t282+15.22003342222222*t174*t146*t281-3.503779840000001*
        t314*t279*t280+.2716248746666667*t539*t494*t540;
    t542 = .0396821333333333*gradb*t143*t283+6.792846222222222e-4*
        t176*t142*t282-2.254174435555555e-5*t174*t157*t281+1.421287424e-7*
        t314*t291*t280-2.61479901866667e-10*t539*t507*t540;
    t543 = .0438298666666667*gradb*t54*t283-0.0034986336*
        gradb*t50*t53*t283+1.94139264e-5*gradb*t51*t124*t283-0.0046165248*
        t176*t53*t282+9.9177696e-5*t176*t50*t124*t282-4.288712832e-7*
        t176*t51*t265*t282+2.29001472e-5*t174*t124*t281-3.915468288e-7*
        t174*t50*t265*t281+1.5248756736e-9*t174*t51*t445*t281;
    t544 = 5.129471999999999e-4*t48*t22*t53*t149-1.1019744e-5*
        t48*t22*t50*t124*t149-1.71751104e-5*t21*t48*t25*t124*t149+
        4.76523648e-8*t48*t22*t51*t265*t149+2.936601216e-7*t21*t48*
        t25*t50*t265*t149-1.1436567552e-9*t21*t48*t25*t51*t445*t149;
    t545 = 0.0010258944*
        grada*gradb*t22*t53*t149-2.2039488e-5*grada*gradb*t22*t50*
        t124*t149+9.53047296e-8*grada*gradb*t22*t51*t265*t149-1.71751104e-5*
        grada*t176*t22*t124*t148+2.936601216e-7*grada*t176*t22*t50*
        t265*t148-1.1436567552e-9*grada*t176*t22*t51*t445*t148;
    t546 = 1/pow(rhob,14.33333333333333);
    t547 = -2.50528*t139*t149+11.877824*t48*t137*t148-9.207475200000001*
        t135*t146*t147+2.405017600000001*t145*t279*t315-.2037186560000001*
        t278*t494*t546;
    t548 = -0.0108224*t143*t149-2.898687999999999e-4*t48*
        t142*t148+1.3043712e-5*t135*t157*t147-9.587179519999999e-8*
        t145*t291*t315+1.961099264e-10*t278*t507*t546;
    t549 = -0.0119536*t54*t149+9.541727999999999e-4*t50*t53*
        t149-5.294707200000001e-6*t51*t124*t149+0.002564736*t48*t53*
        t148-5.509872e-5*t48*t50*t124*t148+2.38261824e-7*t48*t51*t265*
        t148-1.71751104e-5*t135*t124*t147+2.936601216e-7*t135*t50*
        t265*t147-1.1436567552e-9*t135*t51*t445*t147;
    t550 = 1/pow(rhoa,13.33333333333333);
    t551 = -4.64208*grada*t24*t25+5.172576000000001*t170*
        t35*t169-1.612776960000001*t168*t181*t319+.1527889920000001*
        t272*t329*t550;
    t552 = 9.246719999999999e-5*grada*t31*t25-6.8550144e-6*
        t170*t46*t169+6.271119360000001e-8*t168*t193*t319-1.470824448e-10*
        t272*t342*t550;
    t553 = -0.0011541312*grada*t25*t53+2.4794424e-5*grada*
        t25*t50*t124+1.28813328e-5*t170*t169*t124-1.072178208e-7*grada*
        t25*t51*t265-2.202450912e-7*t170*t169*t50*t265+8.577425664e-10*
        t170*t169*t51*t445;
    t554 = -3.847104000000001e-4*gradb*t22*t53*t49+8.264808e-6*
        gradb*t22*t50*t124*t49+1.28813328e-5*t21*gradb*t25*t124*t49-
        3.57392736e-8*gradb*t22*t51*t265*t49-2.202450912e-7*t21*gradb*
        t25*t50*t265*t49+8.577425664e-10*t21*gradb*t25*t51*t445*t49;
    t555 = -
        3.847104000000001e-4*grada*t22*t53*t49+8.264808e-6*grada*t22*
        t50*t124*t49-3.57392736e-8*grada*t22*t51*t265*t49+1.28813328e-5*
        grada*t48*t22*t124*t138-2.202450912e-7*grada*t48*t22*t50*t265*
        t138+8.577425664e-10*grada*t48*t22*t51*t445*t138;
    t556 = 1/pow(rhob,13.33333333333333);
    t557 = -4.64208*gradb*t137*t138+5.172576000000001*t176*
        t146*t175-1.612776960000001*t174*t279*t324+.1527889920000001*
        t314*t494*t556;
    t558 = 9.246719999999999e-5*gradb*t142*t138-6.8550144e-6*
        t176*t157*t175+6.271119360000001e-8*t174*t291*t324-1.470824448e-10*
        t314*t507*t556;
    t559 = -0.0011541312*gradb*t53*t138+2.4794424e-5*gradb*
        t50*t124*t138-1.072178208e-7*gradb*t51*t265*t138+1.28813328e-5*
        t176*t124*t175-2.202450912e-7*t176*t50*t265*t175+8.577425664e-10*
        t176*t51*t445*t175;
    t560 = pow(grada,12.0);
    t561 = 1/pow(t23,6.0);
    t562 = 1/pow(rhoa,20.0);
    t563 = 1/pow(rhoa,17.33333333333333);
    t564 = 1/pow(rhoa,14.66666666666667);
    t565 = 1/pow(rhoa,12.0);
    t566 = 1/pow(rhoa,9.333333333333334);
    t567 = 1/pow(rhoa,6.666666666666667);
    t568 = 1/pow(t18,4.0);
    t569 = pow(t44,4.0);
    t570 = 1/pow(t17,8.0);
    t571 = 1/pow(t17,7.0);
    t572 = pow(t192,2.0);
    t573 = 21.42414814814815*t1*t2*t3/pow(rhoa,4.333333333333333)+
        18.83609421296296*t14*t15*t16/pow(rhoa,4.166666666666667)+
        11.04534375*t8*t9/pow(t10,9.0)+6.79197037037037*t4*t5*t6*t185;
    t574 = 1/
        pow(t30,6.0);
    t575 = 2069.000588228246*t358*t58*t359*t360;
    t576 = -385.9637837316264*t358*t58*t362*t203;
    t577 = -13.74674343057476*t1*t2*t3*t89*t201*t202*t203;
    t578 = 192.9818918658132*
        t212*t91*t58*t202*t203;
    t579 = 24.0*t358*t58*t202*t93;
    t580 = 1.7096*t1*t2*t3*t89*t201*t205*t93;
    t581 = -24.0*t212*t91*t58*t205*t93;
    t582 = -.8547999999999998*t1*t2*t3*t89*t212*t92*t93;
    t583 = 1.139733333333333*
        t1*t2*t3*t210*t91*t92*t93;
    t584 = 4.0*t375*t58*t92*t93;
    t585 = -4101.558808403119*t67*t71*t377*t72*t378*t76*t379;
    t586 = 415.5781415850208*
        t67*t71*t377*t72*t382*t76*t216;
    t587 = 7.70551137522226*t67*t1*t2*t3*t89*t71*t214*t215*
        t76*t216;
    t588 = -207.7890707925104*t67*t71*t222*t95*t72*t215*t76*
        t216;
    t589 = -14.03573615389249*t67*t71*t377*t72*t215*t76*t97;
    t590 = -
        .5204918823735132*t67*t1*t2*t3*t89*t71*t214*t219*t76*t97;
    t591 = 14.03573615389249*
        t67*t71*t222*t95*t72*t219*t76*t97;
    t592 = .2602459411867566*t67*t1*t2*t3*t89*t71*t222*t96*
        t76*t97;
    t593 = -.3469945882490088*t67*t1*t2*t3*t210*t71*t95*t96*
        t76*t97;
    t594 = -2.339289358982082*t67*t71*t397*t72*t96*t76*t97;
    t595 = .0551218096592593*
        t1*t2*t3*t373*t65;
    t596 = -.0091150851738505*t67*t1*t2*t3*t373*t71*t76*t79;
    t597 = 4.0*
        t429*t67*t69*t70*t76;
    t598 = -48.0*t111*t254*t67*t69*t76;
    t599 = 240.0*t119*t243*t67*t69*t76;
    t600 = 144.0*t119*t245*t67*t70*t76;
    t601 = -480.0*t418*t67*t69*t76*t85;
    t602 = -576.0*t111*t245*t67*t76*t85;
    t603 = pow(t91,4.0);
    t604 = 1/pow(t63,8.0);
    t605 = 1/pow(t64,4.0);
    t606 = 24954.97798673546*t603*t58*t604*t605;
    t607 = 1/pow(t63,7.0);
    t608 = -6207.001764684737*t603*t58*t607*t360;
    t609 = -147.3818085681254*t1*t2*t3*t89*t358*t359*t360;
    t610 = 3103.500882342369*
        t212*t201*t58*t359*t360;
    t611 = 578.9456755974396*t603*t58*t359*t203;
    t612 = 27.49348686114952*t1*t2*t3*t89*t358*t362*t203;
    t613 = -
        578.9456755974396*t212*t201*t58*t362*t203;
    t614 = -13.74674343057476*t1*t2*t3*t89*t212*t91*t202*
        t203;
    t615 = 9.164495620383173*t1*t2*t3*t210*t201*t202*t203;
    t616 = pow(t212,
        2.0);
    t617 = 48.2454729664533*t616*t58*t202*t203;
    t618 = 64.3272972886044*t375*t91*t58*t202*t203;
    t619 = -24.0*t603*t58*t362*t93;
    t620 = -1.7096*t1*t2*t3*t89*t358*t202*t93;
    t621 = 36.0*t212*t201*t58*t202*t93;
    t622 = 1.7096*t1*t2*t3*t89*t212*t91*t205*t93;
    t623 = -1.139733333333333*t1*t2*t3*t210*t201*t205*t93;
    t624 = -
        6.0*t616*t58*t205*t93;
    t625 = -8.0*t375*t91*t58*t205*t93;
    t626 = -.2849333333333333*t1*t2*t3*t89*t375*t92*t93;
    t627 = .5698666666666665*
        t1*t2*t3*t210*t212*t92*t93;
    t628 = -.8864592592592592*t1*t2*t3*t373*t91*t92*t93;
    t629 = 1/
        pow(t56,4.666666666666667);
    t630 = 1/pow(t60,9.0);
    t631 = 1/pow(t56,4.333333333333333);
    t632 = 1/pow(t56,4.166666666666667);
    t633 = 10.13346087962963*t14*t15*t16*t632+12.40158024691358*
        t1*t2*t3*t631+5.37534375*t8*t9*t630+5.355397530864196*t4*t5*
        t6*t629;
    t634 = .9999999999999999*t633*t58*t92*t93;
    t635 = pow(t95,4.0);
    t636 = -91080.98259910994*t635*t67*t71*t72*t76/(pow(t77,
        8.0)*pow(t78,4.0));
    t637 = 12304.67642520936*t379*t635*t67*t71*t72*t76/pow(t77,
        7.0);
    t638 = 152.0994724782823*t67*t1*t2*t3*t89*t71*t377*t378*
        t76*t379;
    t639 = -6152.338212604678*t67*t71*t222*t214*t72*t378*
        t76*t379;
    t640 = -623.3672123775311*t67*t71*t635*t72*t378*t76*t216;
    t641 = -
        15.41102275044452*t67*t1*t2*t3*t89*t71*t377*t382*t76*t216;
    t642 = 623.3672123775311*
        t67*t71*t222*t214*t72*t382*t76*t216;
    t643 = 7.70551137522226*t67*t1*t2*t3*t89*t71*t222*t95*
        t215*t76*t216;
    t644 = -5.137007583481506*t67*t1*t2*t3*t210*t71*t214*
        t215*t76*t216;
    t645 = pow(t222,2.0);
    t646 = -51.9472676981276*t67*t71*t645*t72*t215*t76*t216;
    t647 = -
        69.26302359750346*t67*t71*t397*t95*t72*t215*t76*t216;
    t648 = 14.03573615389249*t67*t71*t635*t72*t382*t76*t97;
    t649 = .5204918823735132*
        t67*t1*t2*t3*t89*t71*t377*t215*t76*t97;
    t650 = -21.05360423083874*t67*t71*t222*t214*t72*t215*
        t76*t97;
    t651 = -.5204918823735132*t67*t1*t2*t3*t89*t71*t222*t95*
        t219*t76*t97;
    t652 = .3469945882490088*t67*t1*t2*t3*t210*t71*t214*t219*
        t76*t97;
    t653 = 3.508934038473122*t67*t71*t645*t72*t219*t76*t97;
    t654 = 4.678578717964164*
        t67*t71*t397*t95*t72*t219*t76*t97;
    t655 = .0867486470622522*t67*t1*t2*t3*t89*t71*t397*t96*
        t76*t97;
    t656 = -.1734972941245044*t67*t1*t2*t3*t210*t71*t222*
        t96*t76*t97;
    t657 = 0.269884679749229*t67*t1*t2*t3*t373*t71*t95*t96*
        t76*t97;
    t658 = -.5848223397455204*t67*(13.81732484567901*t14*
        t15*t16*t632+12.5242962962963*t1*t2*t3*t631+2.888353125*t8*
        t9*t630+5.396355555555555*t4*t5*t6*t629)*t71*t72*t96*t76*t97;
    t659 = -
        .0459348413827161*t1*t2*t3*t631*t65;
    t660 = 1/pow(t74,2.666666666666667);
    t661 = -24.0*t111*t68;
    t662 = 24.0*t70;
    t663 = 1/pow(t75,2.666666666666667);
    t664 = 24.0*t111*t68;
    t665 = -24.0*t70;
    t666 = 1.333333333333333*t107*(t665+t664)+.4938271604938271*
        pow(t106,4.0)*t663+1.333333333333333*t104*(t662+t661)+.4938271604938271*
        pow(t103,4.0)*t660+1.777777777777778*t106*t233*t410-1.777777777777778*
        t232*t236*t407+1.777777777777778*t103*t227*t405-1.777777777777778*
        t226*t231*t402+1.333333333333333*t233*pow(t236,2.0)+1.333333333333333*
        t227*pow(t231,2.0);
    t667 = .0075959043115421*t67*t1*t2*t3*t631*t71*t76*t79;
    t668 = 1/
        pow(t56,8.0);
    t669 = -840.0*t668*t69;
    t670 = -1440.0*t243*t245;
    t671 = pow(t116,4.0);
    t672 = pow(t253,2.0);
    t673 = t67*t69*t70*t76*(.8864592592592592*t1*t2*t3*t373*
        t91*t92*t93-.9999999999999999*t633*t58*t92*t93+.2849333333333333*
        t1*t2*t3*t89*t375*t92*t93-.5698666666666665*t1*t2*t3*t210*
        t212*t92*t93+24.0*t603*t58*t362*t93-1.7096*t1*t2*t3*t89*t212*
        t91*t205*t93+8.0*t375*t91*t58*t205*t93+6.0*t616*t58*t205*t93+
        1.139733333333333*t1*t2*t3*t210*t201*t205*t93-36.0*t212*t201*
        t58*t202*t93+1.7096*t1*t2*t3*t89*t358*t202*t93-0.022083265382716*
        t1*t2*t3*t631*t84+199659.0885685683*t671*t81/(pow(t82,8.0)*
        pow(t83,4.0))-24829.60425438716*t426*t671*t81/pow(t82,7.0)-
        6.0*t118*t252*t672*t81-24.0*t118*t427*t671*t81-8.0*t116*t118*
        t252*t428*t81+36.0*t118*t249*t250*t253*t81+.0459348413827161*
        t1*t2*t3*t631*t65-24954.97798673546*t603*t58*t604*t605+12414.80212719358*
        t253*t249*t81*t425*t426-566.8874535768302*t1*t2*t3*t89*t424*
        t425*t426+6207.001764684737*t603*t58*t607*t360-3103.500882342369*
        t212*t201*t58*t359*t360+147.3818085681254*t1*t2*t3*t89*t358*
        t359*t360-1157.928594403345*t253*t249*t81*t427*t251+52.87359279511096*
        t1*t2*t3*t89*t424*t427*t251+1157.928594403345*t671*t81*t425*
        t251+96.4940495336121*t672*t81*t250*t251+128.6587327114828*
        t428*t116*t81*t250*t251+17.62453093170365*t1*t2*t3*t210*t249*
        t250*t251-26.43679639755548*t1*t2*t3*t89*t253*t116*t250*t251+
        578.9456755974396*t212*t201*t58*t362*t203-27.49348686114952*
        t1*t2*t3*t89*t358*t362*t203-578.9456755974396*t603*t58*t359*
        t203+13.74674343057476*t1*t2*t3*t89*t212*t91*t202*t203-64.3272972886044*
        t375*t91*t58*t202*t203-48.2454729664533*t616*t58*t202*t203-
        9.164495620383173*t1*t2*t3*t210*t201*t202*t203-1.095893333333333*
        t1*t2*t3*t210*t249*t252*t118+1.64384*t1*t2*t3*t89*t253*t116*
        t252*t118-1.64384*t1*t2*t3*t89*t424*t250*t118+(18.83609421296296*
        t14*t15*t16*t632+21.42414814814815*t1*t2*t3*t631+11.04534375*
        t8*t9*t630+6.79197037037037*t4*t5*t6*t629)*t81*t117*t118-.2739733333333333*
        t1*t2*t3*t89*t428*t117*t118+.5479466666666666*t1*t2*t3*t210*
        t253*t117*t118-.8523614814814813*t1*t2*t3*t373*t116*t117*t118);
    t674 = -
        16.0*t111*t429*t67*t69*t76;
    t675 = 120.0*t243*t254*t67*t69*t76;
    t676 = 72.0*t245*t254*t67*t70*t76;
    t677 = -480.0*t119*t418*t67*t69*t76;
    t678 = -576.0*t111*t119*t245*t67*t76;
    t679 = 840.0*t668*t67*t69*t76*t85;
    t680 = 1440.0*t243*t245*t67*t76*t85;
    t681 = 24.0*t67*t70*t76*t85;
    t682 = 1/pow(t52,6.0);
    t683 = -3.508934038473122*t67*t71*t95*t72*t96*t267*t97;
    t684 = -
        3.508934038473122*t67*t114*t95*t72*t96*t161*t97;
    t685 = -3.508934038473122*t67*t163*t95*t72*t96*t108*t97;
    t686 = -
        3.508934038473122*t67*t268*t95*t72*t96*t76*t97;
    t687 = -.0043947732088208*t67*t1*t2*t3*t89*t71*t267*t79;
    t688 = -
        .0043947732088208*t67*t1*t2*t3*t89*t114*t161*t79;
    t689 = -.0043947732088208*t67*t1*t2*t3*t89*t163*t108*
        t79;
    t690 = -.0043947732088208*t67*t1*t2*t3*t89*t268*t76*t79;
    t691 = 6.0*
        t119*t267*t67*t69*t70;
    t692 = -24.0*t111*t267*t67*t69*t85;
    t693 = -51.9472676981276*t67*t71*t214*t72*t215*t267*t216;
    t694 = -
        51.9472676981276*t67*t114*t214*t72*t215*t161*t216;
    t695 = -51.9472676981276*t67*t163*t214*t72*t215*t108*
        t216;
    t696 = -51.9472676981276*t67*t268*t214*t72*t215*t76*t216;
    t697 = 3.508934038473122*
        t67*t71*t214*t72*t219*t267*t97;
    t698 = .1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*
        t267*t97;
    t699 = -1.754467019236561*t67*t71*t222*t72*t96*t267*t97;
    t700 = 3.508934038473122*
        t67*t114*t214*t72*t219*t161*t97;
    t701 = .1301229705933783*t67*t1*t2*t3*t89*t114*t95*t96*
        t161*t97;
    t702 = -1.754467019236561*t67*t114*t222*t72*t96*t161*
        t97;
    t703 = 3.508934038473122*t67*t163*t214*t72*t219*t108*
        t97;
    t704 = .1301229705933783*t67*t1*t2*t3*t89*t163*t95*t96*
        t108*t97;
    t705 = -1.754467019236561*t67*t163*t222*t72*t96*t108*
        t97;
    t706 = 3.508934038473122*t67*t268*t214*t72*t219*t76*t97;
    t707 = .1301229705933783*
        t67*t1*t2*t3*t89*t268*t95*t96*t76*t97;
    t708 = -1.754467019236561*t67*t268*t222*t72*t96*t76*t97;
    t709 = .0029298488058805*
        t67*t1*t2*t3*t210*t71*t267*t79;
    t710 = 1.333333333333333*t104*(12.0*t70+t661)+1.333333333333333*
        t107*(t664-12.0*t70)-1.777777777777778*t228*t232*t407*t68+
        1.777777777777778*t226*t228*t402*t68+2.666666666666667*t228*
        t233*t236*t68-2.666666666666667*t227*t228*t231*t68+.4938271604938271*
        t160*t406*t663+.4938271604938271*t159*t401*t660+1.333333333333333*
        t106*t233*t458+1.333333333333333*t103*t227*t457+.4444444444444444*
        t160*t233*t410-.8888888888888888*t106*t160*t236*t407+.4444444444444444*
        t159*t227*t405-.8888888888888888*t103*t159*t231*t402;
    t711 = .0029298488058805*t67*t1*t2*t3*t210*t114*t161*
        t79;
    t712 = .0029298488058805*t67*t1*t2*t3*t210*t163*t108*
        t79;
    t713 = .0029298488058805*t67*t1*t2*t3*t210*t268*t76*t79;
    t714 = 3.0*
        t254*t267*t67*t69*t70;
    t715 = -24.0*t111*t119*t267*t67*t69;
    t716 = 60.0*t243*t267*t67*t69*t85;
    t717 = 36.0*t245*t267*t67*t70*t85;
    t718 = -24.0*t67*t70*t76*t85;
    t719 = pow(grada,11.0);
    t720 = 1/pow(rhoa,19.0);
    t721 = -32.0*t104*t111*t68;
    t722 = 32.0*t107*t111*t68;
    t723 = t722+t721-5.333333333333333*t106*t233*t68*t70+
        5.333333333333333*t103*t227*t68*t70-2.37037037037037*t106*
        t160*t228*t407*t68+2.37037037037037*t103*t159*t228*t402*t68+
        .4938271604938271*t232*t297*t663+.4938271604938271*t226*t295*
        t660+.8888888888888888*t160*t233*t458+.8888888888888888*t159*
        t227*t457-.2962962962962963*t232*t298*t407-.2962962962962963*
        t236*t297*t407-.2962962962962963*t226*t296*t402-.2962962962962963*
        t231*t295*t402+.4444444444444444*t233*t236*t298+.4444444444444444*
        t227*t231*t296+3.555555555555555*t233*t243*t245+3.555555555555555*
        t227*t243*t245-1.777777777777778*t106*t228*t233+1.777777777777778*
        t103*t227*t228;
    t724 = 1/pow(rhoa,18.0);
    t725 = t722+t721-8.0*t160*t233*t68*t70+8.0*t159*t227*
        t68*t70+16.0*t107*t70-16.0*t104*t70-1.777777777777778*t228*
        t297*t407*t68+1.777777777777778*t228*t295*t402*t68+2.666666666666667*
        t228*t233*t298*t68-2.666666666666667*t227*t228*t296*t68+.4938271604938271*
        t106*t519*t663+.4938271604938271*t103*t517*t660+.4444444444444444*
        t106*t233*t520+.4444444444444444*t103*t227*t518-.8888888888888888*
        t106*t160*t298*t407-.8888888888888888*t103*t159*t296*t402-
        2.666666666666667*t160*t228*t233+2.666666666666667*t159*t227*
        t228;
    t726 = 1/pow(rhoa,17.0);
    t727 = pow(gradb,12.0);
    t728 = 1/pow(t136,6.0);
    t729 = 1/pow(rhob,20.0);
    t730 = 1/pow(rhob,17.33333333333333);
    t731 = 1/pow(rhob,14.66666666666667);
    t732 = 1/pow(rhob,12.0);
    t733 = 1/pow(rhob,9.333333333333334);
    t734 = 1/pow(rhob,6.666666666666667);
    t735 = 1/pow(t131,4.0);
    t736 = pow(t155,4.0);
    t737 = 1/pow(t130,8.0);
    t738 = 1/pow(t130,7.0);
    t739 = pow(t290,2.0);
    t740 = 21.42414814814815*t1*t2*t3/pow(rhob,4.333333333333333)+
        18.83609421296296*t14*t15*t16/pow(rhob,4.166666666666667)+
        11.04534375*t8*t9/pow(t127,9.0)+6.79197037037037*t4*t5*t6*
        t283;
    t741 = 1/pow(t141,6.0);
    t742 = 1.333333333333333*t104*(t665+t661)+.4938271604938271*
        pow(t160,4.0)*t663+1.333333333333333*t107*(t662+t664)+.4938271604938271*
        pow(t159,4.0)*t660+1.777777777777778*t160*t233*t520+1.777777777777778*
        t159*t227*t518-1.777777777777778*t297*t298*t407-1.777777777777778*
        t295*t296*t402+1.333333333333333*t233*pow(t298,2.0)+1.333333333333333*
        t227*pow(t296,2.0);
    t743 = pow(gradb,11.0);
    t744 = 1/pow(rhob,19.0);
    t745 = 1/pow(rhob,18.0);
    t746 = 1/pow(rhob,17.0);
    t747 = 1/pow(rhoa,16.0);
    t748 = 1/pow(rhob,16.0);

   /* code */
    dfdra = t40*t27*t44*t28*t45*rhoa-0.03109*t19*t39*t28*
        rhoa-0.75*t29*t3*t42*t47-1.0*t11*t29*t3*t33-0.03109*t19*t27*
        t28+t125*t134+t55*t123+.0021294577333333*t1*t2*t3*t19*t27*
        t12;
    dfdrb = t151*t140*t155*t133*t156*rhob-0.03109*t132*t150*
        t133*rhob-0.75*t153*t158*t29*t3-1.0*t128*t144*t29*t3+t55*t166+
        t167*t134-0.03109*t132*t140*t133+.0021294577333333*t1*t2*t3*
        t132*t140*t129;
    dfdga = -0.03109*t19*t171*t28*rhoa-0.75*t172*t29*t3*t42+
        t173*t134;
    dfdgb = -0.03109*t132*t177*t133*rhob-0.75*t153*t178*t29*
        t3+t179*t134;
    dfdgab = 0.0;
    d2fdrara = 2.0*t28*t39*t40*t44*t45*rhoa+t40*t27*t192*
        t28*t45*rhoa-2.0*t188*t190*t27*t28*t40*rhoa-0.03109*t19*t186*
        t28*rhoa+32.1646831778707*t187*t27*t188*t28*t189*rhoa-.3333333333333333*
        t29*t3*t33*t7-2.0*t11*t29*t3*t47+2.0*t27*t28*t40*t44*t45+.0014196384888889*
        t1*t2*t3*t19*t27*t43-0.75*t194*t29*t3*t42-0.06218*t19*t39*
        t28+t55*t264+t266*t134+2.0*t123*t125-.1369866666666666*t1*
        t2*t3*t40*t27*t44*t45*t12+.0042589154666667*t1*t2*t3*t19*t39*
        t12;
    d2fdrarb = t271*t134+t167*t123+t125*t166+t55*t270;
    d2fdraga = t40*t171*t44*t28*t45*rhoa-0.03109*t19*t274*
        t28*rhoa-0.75*t275*t29*t3*t42-1.0*t11*t172*t29*t3-0.03109*
        t19*t171*t28+t276*t134+t173*t123+.0021294577333333*t1*t2*t3*
        t19*t171*t12;
    d2fdragb = t277*t134+t179*t123;
    d2fdraab = 0.0;
    d2fdrbrb = -2.0*t133*t140*t151*t286*t288*rhob+32.1646831778707*
        t285*t140*t286*t133*t287*rhob+2.0*t133*t150*t151*t155*t156*
        rhob+t151*t140*t290*t133*t156*rhob-0.03109*t132*t284*t133*
        rhob+t55*t311-0.75*t153*t29*t292*t3-2.0*t128*t158*t29*t3-.3333333333333333*
        t126*t144*t29*t3+2.0*t166*t167+2.0*t133*t140*t151*t155*t156+
        .0014196384888889*t1*t2*t3*t132*t140*t154+t312*t134-0.06218*
        t132*t150*t133-.1369866666666666*t1*t2*t3*t151*t140*t155*t156*
        t129+.0042589154666667*t1*t2*t3*t132*t150*t129;
    d2fdrbga = t313*t134+t173*t166;
    d2fdrbgb = t151*t177*t155*t133*t156*rhob-0.03109*t132*
        t316*t133*rhob-0.75*t153*t29*t3*t317-1.0*t128*t178*t29*t3+
        t179*t166+t318*t134-0.03109*t132*t177*t133+.0021294577333333*
        t1*t2*t3*t132*t177*t129;
    d2fdrbgab = 0.0;
    d2fdgaga = -0.03109*t19*t320*t28*rhoa-0.75*t29*t3*t321*
        t42+t322*t134;
    d2fdgagb = t323*t134;
    d2fdgagab = 0.0;
    d2fdgbgb = -0.03109*t132*t325*t133*rhob-0.75*t153*t29*
        t3*t326+t327*t134;
    d2fdgbgab = 0.0;
    d2fdgabgab = 0.0;
    d3fdrarara = 3.0*t186*t28*t40*t44*t45*rhoa+3.0*t192*t28*
        t39*t40*t45*rhoa+t40*t341*t27*t28*t45*rhoa-6.0*t190*t192*t27*
        t28*t40*t44*rhoa-6.0*t188*t190*t28*t39*t40*rhoa+6.0*t189*t27*
        t28*t337*t40*rhoa-192.9880990672242*t187*t27*t337*t28*t339*
        rhoa+2069.133687865597*t336*t27*t337*t28*t338*rhoa-0.03109*
        t19*t335*t28*rhoa+96.4940495336121*t187*t27*t192*t44*t28*t189*
        rhoa+96.4940495336121*t187*t39*t188*t28*t189*rhoa-1.0*t29*
        t3*t47*t7+3.0*t192*t27*t28*t40*t45+6.0*t40*t39*t44*t28*t45+
        t55*t444-.1369866666666666*t1*t2*t3*t40*t27*t44*t45*t43+.0042589154666667*
        t1*t2*t3*t19*t39*t43-0.75*t29*t3*t343*t42+.2222222222222222*
        t29*t3*t33*t41-6.0*t188*t190*t27*t28*t40-3.0*t11*t194*t29*
        t3-0.09327*t19*t186*t28+3.0*t123*t266+3.0*t125*t264-.0018928513185185*
        t1*t2*t3*t19*t27*t191+96.4940495336121*t187*t27*t188*t28*t189+
        t446*t134-.4109599999999999*t1*t2*t3*t40*t39*t44*t45*t12-0.20548*
        t1*t2*t3*t40*t27*t192*t45*t12+.4109599999999999*t1*t2*t3*t40*
        t27*t188*t190*t12-6.60919909938887*t1*t2*t3*t187*t27*t188*
        t189*t12+0.0063883732*t1*t2*t3*t19*t186*t12;
    d3fdrararb = t55*t472+2.0*t123*t271+2.0*t125*t270+t167*
        t264+t266*t166+t473*t134;
    d3fdraraga = 2.0*t274*t28*t40*t44*t45*rhoa+t40*t171*t192*
        t28*t45*rhoa-2.0*t171*t188*t190*t28*t40*rhoa-0.03109*t19*t476*
        t28*rhoa+32.1646831778707*t187*t171*t188*t28*t189*rhoa-.3333333333333333*
        t172*t29*t3*t7-0.75*t29*t3*t42*t477+2.0*t171*t28*t40*t44*t45+
        .0014196384888889*t1*t2*t3*t19*t171*t43-2.0*t11*t275*t29*t3-
        0.06218*t19*t274*t28+2.0*t123*t276+t173*t264+t478*t134-.1369866666666666*
        t1*t2*t3*t40*t171*t44*t45*t12+.0042589154666667*t1*t2*t3*t19*
        t274*t12;
    d3fdraragb = 2.0*t123*t277+t179*t264+t479*t134;
    d3fdraraab = 0.0;
    d3fdrarbrb = t55*t483+t125*t311+2.0*t166*t271+2.0*t167*
        t270+t484*t134+t312*t123;
    d3fdrarbga = t485*t134+t313*t123+t276*t166+t173*t270;
    d3fdrarbgb = t486*
        t134+t318*t123+t277*t166+t179*t270;
    d3fdrarbab = 0.0;
    d3fdragaga = t40*t320*t44*t28*t45*rhoa-0.03109*t19*t488*
        t28*rhoa-0.75*t29*t3*t42*t489-1.0*t11*t29*t3*t321-0.03109*
        t19*t320*t28+t490*t134+t322*t123+.0021294577333333*t1*t2*t3*
        t19*t320*t12;
    d3fdragagb = t491*t134+t323*t123;
    d3fdragaab = 0.0;
    d3fdragbgb = t492*t134+t327*t123;
    d3fdragbab = 0.0;
    d3fdraabab = 0.0;
    d3fdrbrbrb = -192.9880990672242*t285*t140*t502*t133*t504*
        rhob+2069.133687865597*t501*t140*t502*t133*t503*rhob+6.0*t133*
        t140*t151*t287*t502*rhob-6.0*t133*t140*t151*t155*t288*t290*
        rhob+3.0*t133*t150*t151*t156*t290*rhob-6.0*t133*t150*t151*
        t286*t288*rhob+96.4940495336121*t285*t150*t286*t133*t287*rhob+
        96.4940495336121*t285*t140*t290*t155*t133*t287*rhob+3.0*t133*
        t151*t155*t156*t284*rhob+t151*t506*t140*t133*t156*rhob-0.03109*
        t132*t500*t133*rhob+t55*t536-0.75*t153*t29*t3*t508+3.0*t166*
        t312+3.0*t167*t311-3.0*t128*t29*t292*t3-1.0*t126*t158*t29*
        t3+.2222222222222222*t144*t152*t29*t3+3.0*t133*t140*t151*t156*
        t290-.0018928513185185*t1*t2*t3*t132*t140*t289-6.0*t133*t140*
        t151*t286*t288+96.4940495336121*t285*t140*t286*t133*t287+6.0*
        t151*t150*t155*t133*t156-.1369866666666666*t1*t2*t3*t151*t140*
        t155*t156*t154+.0042589154666667*t1*t2*t3*t132*t150*t154+t537*
        t134-0.09327*t132*t284*t133+.4109599999999999*t1*t2*t3*t151*
        t140*t286*t288*t129-6.60919909938887*t1*t2*t3*t285*t140*t286*
        t287*t129+0.0063883732*t1*t2*t3*t132*t284*t129-0.20548*t1*
        t2*t3*t151*t140*t290*t156*t129-.4109599999999999*t1*t2*t3*
        t151*t150*t155*t156*t129;
    d3fdrbrbga = 2.0*t166*t313+t173*t311+t538*t134;
    d3fdrbrbgb = 2.0*t133*t151*t155*t156*t316*rhob-2.0*t133*
        t151*t177*t286*t288*rhob+32.1646831778707*t285*t177*t286*t133*
        t287*rhob+t151*t177*t290*t133*t156*rhob-0.03109*t132*t541*
        t133*rhob-0.75*t153*t29*t3*t542+2.0*t166*t318-2.0*t128*t29*
        t3*t317+t179*t311-.3333333333333333*t126*t178*t29*t3+2.0*t133*
        t151*t155*t156*t177+.0014196384888889*t1*t2*t3*t132*t177*t154+
        t543*t134-0.06218*t132*t316*t133+.0042589154666667*t1*t2*t3*
        t132*t316*t129-.1369866666666666*t1*t2*t3*t151*t177*t155*t156*
        t129;
    d3fdrbrbab = 0.0;
    d3fdrbgaga = t544*t134+t322*t166;
    d3fdrbgagb = t545*t134+t323*t166;
    d3fdrbgaab = 0.0;
    d3fdrbgbgb = t151*t325*t155*t133*t156*rhob-0.03109*t132*
        t547*t133*rhob-0.75*t153*t29*t3*t548-1.0*t128*t29*t3*t326+
        t327*t166+t549*t134-0.03109*t132*t325*t133+.0021294577333333*
        t1*t2*t3*t132*t325*t129;
    d3fdrbgbab = 0.0;
    d3fdrbabab = 0.0;
    d3fdgagaga = -0.03109*t19*t551*t28*rhoa-0.75*t29*t3*t42*
        t552+t553*t134;
    d3fdgagagb = t554*t134;
    d3fdgagaab = 0.0;
    d3fdgagbgb = t555*t134;
    d3fdgagbab = 0.0;
    d3fdgaabab = 0.0;
    d3fdgbgbgb = -0.03109*t132*t557*t133*rhob-0.75*t153*t29*
        t3*t558+t559*t134;
    d3fdgbgbab = 0.0;
    d3fdgbabab = 0.0;
    d3fdababab = 0.0;
    d4fdrararara = t55*(24829.60425438716*t336*t569*t28*t571*
        rhoa-199659.0885685683*t568*t569*t28*t570*rhoa-1.0*t40*t573*
        t28*t45*rhoa+24.0*t40*t569*t28*t339*rhoa+1157.928594403345*
        t187*t192*t188*t28*t339*rhoa-1157.928594403345*t187*t569*t28*
        t338*rhoa-12414.80212719358*t336*t192*t188*t28*t338*rhoa+6.0*
        t40*t572*t28*t190*rhoa+8.0*t40*t341*t44*t28*t190*rhoa-96.4940495336121*
        t187*t572*t28*t189*rhoa-128.6587327114828*t187*t341*t44*t28*
        t189*rhoa-36.0*t40*t192*t188*t28*t189*rhoa+t56*(.2602459411867566*
        t67*t1*t2*t3*t89*t247*t95*t96*t76*t97-.3469945882490088*t67*
        t1*t2*t3*t210*t114*t95*t96*t76*t97-2.339289358982082*t67*t422*
        t95*t72*t96*t76*t97-2.339289358982082*t67*t114*t397*t72*t96*
        t76*t97-3.508934038473122*t67*t247*t222*t72*t96*t76*t97+.2602459411867566*
        t67*t1*t2*t3*t89*t114*t222*t96*t76*t97+14.03573615389249*t67*
        t114*t222*t95*t72*t219*t76*t97+7.017868076946245*t67*t247*
        t214*t72*t219*t76*t97-.5204918823735132*t67*t1*t2*t3*t89*t114*
        t214*t219*t76*t97-14.03573615389249*t67*t114*t377*t72*t215*
        t76*t97-2.339289358982082*t67*t71*t95*t72*t96*t411*t97+.2602459411867566*
        t67*t1*t2*t3*t89*t71*t95*t96*t237*t97-7.017868076946245*t67*
        t114*t95*t72*t96*t237*t97-3.508934038473122*t67*t71*t222*t72*
        t96*t237*t97+7.017868076946245*t67*t71*t214*t72*t219*t237*
        t97-.3469945882490088*t67*t1*t2*t3*t210*t71*t95*t96*t108*t97+
        .5204918823735132*t67*t1*t2*t3*t89*t114*t95*t96*t108*t97-7.017868076946245*
        t67*t247*t95*t72*t96*t108*t97-2.339289358982082*t67*t71*t397*
        t72*t96*t108*t97-7.017868076946245*t67*t114*t222*t72*t96*t108*
        t97+.2602459411867566*t67*t1*t2*t3*t89*t71*t222*t96*t108*t97+
        14.03573615389249*t67*t71*t222*t95*t72*t219*t108*t97+14.03573615389249*
        t67*t114*t214*t72*t219*t108*t97-.5204918823735132*t67*t1*t2*
        t3*t89*t71*t214*t219*t108*t97-14.03573615389249*t67*t71*t377*
        t72*t215*t108*t97-384.0*t111*t67*t68*t76*t85-1920.0*t113*t418*
        t67*t76*t85+96.0*t108*t67*t68*t70*t85+16.0*t113*t411*t67*t70*
        t85+72.0*t237*t245*t67*t70*t85-480.0*t108*t418*t67*t69*t85-
        16.0*t111*t411*t67*t69*t85+120.0*t237*t243*t67*t69*t85-576.0*
        t108*t111*t245*t67*t85+960.0*t108*t113*t243*t67*t85-192.0*
        t111*t113*t237*t67*t85+t67*t69*t70*t666*t85+.0197517897025652*
        t67*(384.0*t111*t68+t670+t669+t665+1920.0*t113*t418)*t72*t76*
        t79-.0029298488058805*t67*t1*t2*t3*t89*t422*t76*t79+0.005859697611761*
        t67*t1*t2*t3*t210*t247*t76*t79-.0091150851738505*t67*t1*t2*
        t3*t373*t114*t76*t79+.0197517897025652*t67*t71*t72*t666*t79+
        .0790071588102608*t67*t114*t72*t411*t79-.0029298488058805*
        t67*t1*t2*t3*t89*t71*t411*t79+.1185107382153912*t67*t247*t72*
        t237*t79+0.005859697611761*t67*t1*t2*t3*t210*t71*t237*t79-
        .0087895464176415*t67*t1*t2*t3*t89*t114*t237*t79+.0790071588102608*
        t67*t422*t72*t108*t79-.0091150851738505*t67*t1*t2*t3*t373*
        t71*t108*t79-.0087895464176415*t67*t1*t2*t3*t89*t247*t108*
        t79+0.011719395223522*t67*t1*t2*t3*t210*t114*t108*t79+96.0*
        t119*t67*t68*t70*t76+16.0*t113*t429*t67*t70*t76-192.0*t111*
        t113*t254*t67*t76+960.0*t113*t119*t243*t67*t76+4.0*t108*t429*
        t67*t69*t70+4.0*t119*t411*t67*t69*t70+6.0*t237*t254*t67*t69*
        t70+48.0*t108*t113*t254*t67*t70+144.0*t108*t119*t245*t67*t70+
        48.0*t113*t119*t237*t67*t70-48.0*t108*t111*t254*t67*t69+240.0*
        t108*t119*t243*t67*t69-48.0*t111*t119*t237*t67*t69+t681+t680+
        t679+t678+t677+t676+t675+t674+t673-384.0*t108*t111*t113*t119*
        t67+t667+t659+t658+t657+t656+t655+t654+t653+t652+t651+t650+
        t649+t648+t647+t646+t644+t643+t642+t641+t640+t639+t638+t637+
        t636+t634+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+
        t618+t617+t615+t614+t613+t612+t611+t610+t609+t608+t606-4101.558808403119*
        t67*t114*t377*t72*t378*t76*t379-4101.558808403119*t67*t71*
        t377*t72*t378*t108*t379+415.5781415850207*t67*t114*t377*t72*
        t382*t76*t216-207.7890707925104*t67*t114*t222*t95*t72*t215*
        t76*t216-103.8945353962552*t67*t247*t214*t72*t215*t76*t216+
        7.70551137522226*t67*t1*t2*t3*t89*t114*t214*t215*t76*t216-
        103.8945353962552*t67*t71*t214*t72*t215*t237*t216+415.5781415850207*
        t67*t71*t377*t72*t382*t108*t216-207.7890707925104*t67*t71*
        t222*t95*t72*t215*t108*t216-207.7890707925104*t67*t114*t214*
        t72*t215*t108*t216+7.70551137522226*t67*t1*t2*t3*t89*t71*t214*
        t215*t108*t216)+.5204918823735132*t67*t1*t2*t3*t89*t114*t95*
        t96*t76*t97-7.017868076946245*t67*t247*t95*t72*t96*t76*t97-
        7.017868076946245*t67*t114*t222*t72*t96*t76*t97+14.03573615389249*
        t67*t114*t214*t72*t219*t76*t97-7.017868076946245*t67*t71*t95*
        t72*t96*t237*t97+.5204918823735132*t67*t1*t2*t3*t89*t71*t95*
        t96*t108*t97-14.03573615389249*t67*t114*t95*t72*t96*t108*t97-
        7.017868076946245*t67*t71*t222*t72*t96*t108*t97+14.03573615389249*
        t67*t71*t214*t72*t219*t108*t97+96.0*t67*t68*t70*t76*t85+960.0*
        t113*t243*t67*t76*t85+4.0*t411*t67*t69*t70*t85+144.0*t108*
        t245*t67*t70*t85+48.0*t113*t237*t67*t70*t85+240.0*t108*t243*
        t67*t69*t85-48.0*t111*t237*t67*t69*t85-384.0*t108*t111*t113*
        t67*t85+.0790071588102608*t67*t422*t72*t76*t79-.0087895464176415*
        t67*t1*t2*t3*t89*t247*t76*t79+0.011719395223522*t67*t1*t2*
        t3*t210*t114*t76*t79+.0790071588102608*t67*t71*t72*t411*t79+
        .2370214764307825*t67*t114*t72*t237*t79-.0087895464176415*
        t67*t1*t2*t3*t89*t71*t237*t79+.2370214764307825*t67*t247*t72*
        t108*t79+0.011719395223522*t67*t1*t2*t3*t210*t71*t108*t79-
        0.017579092835283*t67*t1*t2*t3*t89*t114*t108*t79+48.0*t113*
        t254*t67*t70*t76-384.0*t111*t113*t119*t67*t76+12.0*t108*t254*
        t67*t69*t70+12.0*t119*t237*t67*t69*t70+96.0*t108*t113*t119*
        t67*t70-96.0*t108*t111*t119*t67*t69+t602+t601+t600+t599+t598+
        t597+t596+t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+
        t585+t584+t583+t582+t581+t580+t579+t578+t577+t576+t575-4.0*
        t40*t341*t28*t45+.2739733333333333*t1*t2*t3*t40*t192*t45*t43-
        .5479466666666666*t1*t2*t3*t40*t188*t190*t43+8.812265465851826*
        t1*t2*t3*t187*t188*t189*t43-.0044166530765432*t1*t2*t3*t19*
        t340+771.9523962688968*t187*t337*t28*t339-8276.534751462386*
        t336*t337*t28*t338-207.7890707925104*t67*t114*t214*t72*t215*
        t76*t216-207.7890707925104*t67*t71*t214*t72*t215*t108*t216-
        .2435318518518518*t1*t2*t3*t40*t44*t45*t191+24.0*t40*t192*
        t44*t28*t190-385.9761981344484*t187*t192*t44*t28*t189-24.0*
        t40*t337*t28*t189+.2739733333333333*t1*t2*t3*t40*t341*t45*
        t12-52.87359279511096*t1*t2*t3*t187*t337*t339*t12+566.8874535768302*
        t1*t2*t3*t336*t337*t338*t12-1.64384*t1*t2*t3*t40*t192*t44*
        t190*t12+26.43679639755548*t1*t2*t3*t187*t192*t44*t189*t12+
        1.64384*t1*t2*t3*t40*t337*t189*t12)-6.0*t190*t27*t28*t40*t572*
        rhoa-24829.60425438716*t336*t27*t569*t28*t571*rhoa+199659.0885685683*
        t568*t27*t569*t28*t570*rhoa-24.0*t27*t28*t339*t40*t569*rhoa+
        4.0*t28*t335*t40*t44*t45*rhoa+4.0*t28*t341*t39*t40*t45*rhoa+
        6.0*t186*t192*t28*t40*t45*rhoa+t40*t573*t27*t28*t45*rhoa-24.0*
        t190*t192*t28*t39*t40*t44*rhoa-8.0*t190*t27*t28*t341*t40*t44*
        rhoa+24.0*t189*t28*t337*t39*t40*rhoa+36.0*t188*t189*t192*t27*
        t28*t40*rhoa-12.0*t186*t188*t190*t28*t40*rhoa-771.9523962688968*
        t187*t39*t337*t28*t339*rhoa-1157.928594403345*t187*t27*t192*
        t188*t28*t339*rhoa+1157.928594403345*t187*t27*t569*t28*t338*
        rhoa+8276.534751462386*t336*t39*t337*t28*t338*rhoa+12414.80212719358*
        t336*t27*t192*t188*t28*t338*rhoa-0.03109*t19*(121.4596859259259*
        t21*t26*t567-374.965149234568*t20*t24*t566+309.0964808691358*
        t34*t35*t565-106.678065682963*t180*t181*t564+16.60602625896297*
        t328*t329*t563-.9657773321481483*t560*t561*t562)*t28*rhoa+
        96.4940495336121*t187*t27*t572*t28*t189*rhoa+128.6587327114828*
        t187*t341*t27*t44*t28*t189*rhoa+385.9761981344484*t187*t39*
        t192*t44*t28*t189*rhoa+192.9880990672242*t187*t186*t188*t28*
        t189*rhoa-2.0*t194*t29*t3*t7-0.75*t29*t3*t42*(.5246859851851852*
        t21*t32*t567+.0100516841876543*t20*t31*t566-4.292351342617283e-4*
        t34*t46*t565+3.979720082014815e-6*t180*t193*t564-1.447727716882963e-8*
        t328*t342*t563+1.8594126354963e-11*t560*t574*t562)+.8888888888888888*
        t29*t3*t41*t47+4.0*t27*t28*t341*t40*t45+12.0*t40*t186*t44*
        t28*t45+12.0*t40*t39*t192*t28*t45+4.0*t123*t446+4.0*t125*t444-
        24.0*t190*t192*t27*t28*t40*t44-.5479466666666666*t1*t2*t3*
        t40*t39*t44*t45*t43-.2739733333333333*t1*t2*t3*t40*t27*t192*
        t45*t43+.5479466666666666*t1*t2*t3*t40*t27*t188*t190*t43-8.812265465851826*
        t1*t2*t3*t187*t27*t188*t189*t43+.0085178309333333*t1*t2*t3*
        t19*t186*t43+24.0*t189*t27*t28*t337*t40-4.0*t11*t29*t3*t343+
        .0044166530765432*t1*t2*t3*t19*t27*t340-771.9523962688968*
        t187*t27*t337*t28*t339+8276.534751462386*t336*t27*t337*t28*
        t338-.3703703703703703*t22*t29*t3*t33-0.12436*t19*t335*t28+
        6.0*t264*t266+.2435318518518518*t1*t2*t3*t40*t27*t44*t45*t191-
        .0075714052740741*t1*t2*t3*t19*t39*t191-24.0*t40*t39*t188*
        t28*t190+385.9761981344484*t187*t27*t192*t44*t28*t189+385.9761981344484*
        t187*t39*t188*t28*t189+(0.579528237037037*t21*t567*t54-.0462597109333333*
        t21*t567*t50*t53-.0743963420444444*t20*t566*t53+2.566952490666667e-4*
        t21*t567*t51*t124+.0015982710186667*t20*t566*t50*t124+6.717376511999998e-4*
        t34*t565*t124-6.911357798400002e-6*t20*t566*t51*t265-1.14853736448e-5*
        t34*t565*t50*t265-1.4288879616e-6*t180*t564*t265+4.47296864256e-8*
        t34*t565*t51*t445+2.21277782016e-8*t180*t564*t50*t445-8.1326702592e-11*
        t180*t564*t51*t682)*t134-.8219199999999999*t1*t2*t3*t40*t186*
        t44*t45*t12-.2739733333333333*t1*t2*t3*t40*t341*t27*t45*t12-
        .8219199999999999*t1*t2*t3*t40*t39*t192*t45*t12+52.87359279511096*
        t1*t2*t3*t187*t27*t337*t339*t12-566.8874535768302*t1*t2*t3*
        t336*t27*t337*t338*t12+.0085178309333333*t1*t2*t3*t19*t335*
        t12+1.64384*t1*t2*t3*t40*t27*t192*t44*t190*t12+1.64384*t1*
        t2*t3*t40*t39*t188*t190*t12-26.43679639755548*t1*t2*t3*t187*
        t27*t192*t44*t189*t12-1.64384*t1*t2*t3*t40*t27*t337*t189*t12-
        26.43679639755548*t1*t2*t3*t187*t39*t188*t189*t12;
    d4fdrarararb = t55*(t56*(.1301229705933783*t67*t1*t2*
        t3*t89*t247*t95*t96*t76*t97-.0867486470622522*t67*t1*t2*t3*
        t210*t163*t95*t96*t76*t97-.2602459411867566*t67*t1*t2*t3*t210*
        t114*t95*t96*t76*t97-1.754467019236561*t67*t465*t95*t72*t96*
        t76*t97-.5848223397455204*t67*t422*t95*t72*t96*t76*t97-.5848223397455204*
        t67*t163*t397*t72*t96*t76*t97-1.754467019236561*t67*t114*t397*
        t72*t96*t76*t97-1.754467019236561*t67*t247*t222*t72*t96*t76*
        t97+.0650614852966891*t67*t1*t2*t3*t89*t163*t222*t96*t76*t97+
        .1951844558900674*t67*t1*t2*t3*t89*t114*t222*t96*t76*t97+3.508934038473122*
        t67*t163*t222*t95*t72*t219*t76*t97+10.52680211541937*t67*t114*
        t222*t95*t72*t219*t76*t97+3.508934038473122*t67*t247*t214*
        t72*t219*t76*t97-.1301229705933783*t67*t1*t2*t3*t89*t163*t214*
        t219*t76*t97-.3903689117801349*t67*t1*t2*t3*t89*t114*t214*
        t219*t76*t97-3.508934038473122*t67*t163*t377*t72*t215*t76*
        t97-10.52680211541937*t67*t114*t377*t72*t215*t76*t97-1.754467019236561*
        t67*t71*t95*t72*t96*t459*t97-.5848223397455204*t67*t71*t95*
        t72*t96*t411*t97-3.508934038473122*t67*t114*t95*t72*t96*t267*
        t97+.1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*t237*t97-
        1.754467019236561*t67*t163*t95*t72*t96*t237*t97-1.754467019236561*
        t67*t114*t95*t72*t96*t237*t97-1.754467019236561*t67*t71*t222*
        t72*t96*t237*t97+3.508934038473122*t67*t71*t214*t72*t219*t237*
        t97-.0867486470622522*t67*t1*t2*t3*t210*t71*t95*t96*t161*t97-
        1.754467019236561*t67*t247*t95*t72*t96*t161*t97-.5848223397455204*
        t67*t71*t397*t72*t96*t161*t97+.0650614852966891*t67*t1*t2*
        t3*t89*t71*t222*t96*t161*t97+3.508934038473122*t67*t71*t222*
        t95*t72*t219*t161*t97-.1301229705933783*t67*t1*t2*t3*t89*t71*
        t214*t219*t161*t97-3.508934038473122*t67*t71*t377*t72*t215*
        t161*t97-.2602459411867566*t67*t1*t2*t3*t210*t71*t95*t96*t108*
        t97+.2602459411867565*t67*t1*t2*t3*t89*t114*t95*t96*t108*t97-
        3.508934038473122*t67*t268*t95*t72*t96*t108*t97-1.754467019236561*
        t67*t247*t95*t72*t96*t108*t97-1.754467019236561*t67*t71*t397*
        t72*t96*t108*t97-3.508934038473122*t67*t114*t222*t72*t96*t108*
        t97+.1951844558900674*t67*t1*t2*t3*t89*t71*t222*t96*t108*t97+
        10.52680211541937*t67*t71*t222*t95*t72*t219*t108*t97+7.017868076946245*
        t67*t114*t214*t72*t219*t108*t97-.3903689117801349*t67*t1*t2*
        t3*t89*t71*t214*t219*t108*t97-10.52680211541937*t67*t71*t377*
        t72*t215*t108*t97+192.0*t111*t67*t68*t76*t85-960.0*t113*t418*
        t67*t76*t85+t67*t69*t70*t710*t85+24.0*t161*t67*t68*t70*t85-
        72.0*t108*t67*t68*t70*t85+12.0*t113*t459*t67*t70*t85-4.0*t113*
        t411*t67*t70*t85-36.0*t237*t245*t67*t70*t85-12.0*t111*t459*
        t67*t69*t85-120.0*t161*t418*t67*t69*t85-360.0*t108*t418*t67*
        t69*t85-4.0*t111*t411*t67*t69*t85+60.0*t237*t243*t67*t69*t85-
        96.0*t111*t113*t267*t67*t85-144.0*t111*t161*t245*t67*t85+144.0*
        t108*t111*t245*t67*t85+240.0*t113*t161*t243*t67*t85+240.0*
        t108*t113*t243*t67*t85+.0197517897025652*t67*(-192.0*t111*
        t68+t669+t662+960.0*t113*t418)*t72*t76*t79-.0021973866044104*
        t67*t1*t2*t3*t89*t465*t76*t79-7.324622014701263e-4*t67*t1*
        t2*t3*t89*t422*t76*t79+.0029298488058805*t67*t1*t2*t3*t210*
        t247*t76*t79-.0022787712934626*t67*t1*t2*t3*t373*t163*t76*
        t79-.0068363138803878*t67*t1*t2*t3*t373*t114*t76*t79+.0197517897025652*
        t67*t71*t72*t710*t79+.0592553691076956*t67*t114*t72*t459*t79-
        .0021973866044104*t67*t1*t2*t3*t89*t71*t459*t79+.0197517897025652*
        t67*t163*t72*t411*t79-7.324622014701263e-4*t67*t1*t2*t3*t89*
        t71*t411*t79+.0592553691076956*t67*t247*t72*t267*t79-.0043947732088208*
        t67*t1*t2*t3*t89*t114*t267*t79+.0592553691076956*t67*t268*
        t72*t237*t79+.0029298488058805*t67*t1*t2*t3*t210*t71*t237*
        t79-.0021973866044104*t67*t1*t2*t3*t89*t163*t237*t79-.0021973866044104*
        t67*t1*t2*t3*t89*t114*t237*t79+.0197517897025652*t67*t422*
        t72*t161*t79-.0022787712934626*t67*t1*t2*t3*t373*t71*t161*
        t79-.0021973866044104*t67*t1*t2*t3*t89*t247*t161*t79+.0592553691076956*
        t67*t465*t72*t108*t79-.0068363138803878*t67*t1*t2*t3*t373*
        t71*t108*t79-.0043947732088208*t67*t1*t2*t3*t89*t268*t108*
        t79-.0021973866044104*t67*t1*t2*t3*t89*t247*t108*t79+0.005859697611761*
        t67*t1*t2*t3*t210*t114*t108*t79-48.0*t119*t67*t68*t70*t76+
        8.0*t113*t429*t67*t70*t76-96.0*t111*t113*t254*t67*t76+480.0*
        t113*t119*t243*t67*t76+t718+t717+t716+t715+t714+t713+t712+
        t711+t709+t708+t707+t706+t705+t704+t703+t702+t701+t700+3.0*
        t119*t459*t67*t69*t70+3.0*t108*t429*t67*t69*t70+3.0*t237*t254*
        t67*t69*t70+24.0*t113*t119*t267*t67*t70+12.0*t113*t161*t254*
        t67*t70+12.0*t108*t113*t254*t67*t70+36.0*t119*t161*t245*t67*
        t70-36.0*t108*t119*t245*t67*t70+t699+t698+t697+t696+t695+t694+
        t693-12.0*t111*t161*t254*t67*t69-36.0*t108*t111*t254*t67*t69+
        60.0*t119*t161*t243*t67*t69+180.0*t108*t119*t243*t67*t69-24.0*
        t111*t119*t237*t67*t69+t679+t677+t675+t674+t673-96.0*t111*
        t113*t119*t161*t67-96.0*t108*t111*t113*t119*t67+t667+t659+
        t658+t657+t656+t655+t654+t653+t652+t651+t650+t649+t648+t647+
        t646+t644+t643+t642+t641+t640+t639+t638+t637+t636+t634+t628+
        t627+t626+t625+t624+t623+t622+t621+t620+t619+t618+t617+t615+
        t614+t613+t612+t611+t610+t609+t608+t606+t67*t69*t70*t161*t429-
        1025.38970210078*t67*t163*t377*t72*t378*t76*t379-3076.169106302339*
        t67*t114*t377*t72*t378*t76*t379-1025.38970210078*t67*t71*t377*
        t72*t378*t161*t379-3076.169106302339*t67*t71*t377*t72*t378*
        t108*t379+103.8945353962552*t67*t163*t377*t72*t382*t76*t216+
        311.6836061887656*t67*t114*t377*t72*t382*t76*t216-51.9472676981276*
        t67*t163*t222*t95*t72*t215*t76*t216-155.8418030943828*t67*
        t114*t222*t95*t72*t215*t76*t216-51.94726769812759*t67*t247*
        t214*t72*t215*t76*t216+1.926377843805565*t67*t1*t2*t3*t89*
        t163*t214*t215*t76*t216+5.779133531416695*t67*t1*t2*t3*t89*
        t114*t214*t215*t76*t216-51.94726769812759*t67*t71*t214*t72*
        t215*t237*t216+103.8945353962552*t67*t71*t377*t72*t382*t161*
        t216-51.9472676981276*t67*t71*t222*t95*t72*t215*t161*t216+
        1.926377843805565*t67*t1*t2*t3*t89*t71*t214*t215*t161*t216+
        311.6836061887656*t67*t71*t377*t72*t382*t108*t216-155.8418030943828*
        t67*t71*t222*t95*t72*t215*t108*t216-103.8945353962552*t67*
        t114*t214*t72*t215*t108*t216+5.779133531416695*t67*t1*t2*t3*
        t89*t71*t214*t215*t108*t216+t67*t69*t70*t411*t119)+.3903689117801348*
        t67*t1*t2*t3*t89*t114*t95*t96*t76*t97-3.508934038473122*t67*
        t247*t95*t72*t96*t76*t97-5.263401057709684*t67*t114*t222*t72*
        t96*t76*t97+10.52680211541937*t67*t114*t214*t72*t219*t76*t97-
        3.508934038473122*t67*t71*t95*t72*t96*t237*t97+.3903689117801348*
        t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-7.017868076946245*t67*
        t114*t95*t72*t96*t108*t97-5.263401057709684*t67*t71*t222*t72*
        t96*t108*t97+10.52680211541937*t67*t71*t214*t72*t219*t108*
        t97-48.0*t67*t68*t70*t76*t85+480.0*t113*t243*t67*t76*t85+3.0*
        t459*t67*t69*t70*t85+24.0*t113*t267*t67*t70*t85-36.0*t108*
        t245*t67*t70*t85+180.0*t108*t243*t67*t69*t85-24.0*t111*t237*
        t67*t69*t85-96.0*t111*t113*t161*t67*t85+.0592553691076956*
        t67*t465*t72*t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t247*
        t76*t79+.0087895464176415*t67*t1*t2*t3*t210*t114*t76*t79+.0592553691076956*
        t67*t71*t72*t459*t79+.1185107382153912*t67*t114*t72*t267*t79+
        .0592553691076956*t67*t163*t72*t237*t79-.0043947732088208*
        t67*t1*t2*t3*t89*t71*t237*t79+.0592553691076956*t67*t247*t72*
        t161*t79+.1185107382153912*t67*t268*t72*t108*t79+.0087895464176415*
        t67*t1*t2*t3*t210*t71*t108*t79-.0087895464176415*t67*t1*t2*
        t3*t89*t114*t108*t79+24.0*t113*t254*t67*t70*t76-192.0*t111*
        t113*t119*t67*t76+9.0*t108*t254*t67*t69*t70+6.0*t119*t237*
        t67*t69*t70+24.0*t113*t119*t161*t67*t70+t692+t691+t690-72.0*
        t108*t111*t119*t67*t69+t689+t688+t687+t686+t685+t684+t683+
        t601+t599+t598+t597+t596+t595+t594+t593+t592+t591+t590+t589+
        t588+t587+t586+t585+t584+t583+t582+t581+t580+t579+t578+t577+
        t576+t575+t535+t533+t530+t529+t526+t524+t516+t515+t514+t513+
        t512+t511+t510+t509+t439+t437+t434+t423+t415+t413+t412-155.8418030943828*
        t67*t114*t214*t72*t215*t76*t216-155.8418030943828*t67*t71*
        t214*t72*t215*t108*t216)+3.0*t123*t473+3.0*t125*t472+t167*
        t444+3.0*t264*t271+3.0*t266*t270+t446*t166+(-.0117027953777778*
        t21*t48*t334*t53*t149+2.514134186666667e-4*t21*t48*t334*t50*
        t124*t149+3.358688255999999e-4*t20*t48*t333*t124*t149-1.0871798784e-6*
        t21*t48*t334*t51*t265*t149-5.7426868224e-6*t20*t48*t333*t50*
        t265*t149-1.4288879616e-6*t34*t48*t332*t265*t149+2.23648432128e-8*
        t20*t48*t333*t51*t445*t149+2.21277782016e-8*t34*t48*t332*t50*
        t445*t149-8.1326702592e-11*t34*t48*t332*t51*t682*t149)*t134;
    d4fdrararaga = 3.0*
        t28*t40*t44*t45*t476*rhoa+3.0*t192*t274*t28*t40*t45*rhoa+t40*
        t341*t171*t28*t45*rhoa-6.0*t171*t190*t192*t28*t40*t44*rhoa+
        6.0*t171*t189*t28*t337*t40*rhoa-6.0*t188*t190*t274*t28*t40*
        rhoa-192.9880990672242*t187*t171*t337*t28*t339*rhoa+2069.133687865597*
        t336*t171*t337*t28*t338*rhoa-0.03109*t19*(-42.86812444444445*
        grada*t26*t334+183.0697765925926*t170*t24*t333-178.1160523851852*
        t168*t35*t332+68.73326478222224*t272*t181*t331-11.63964507022223*
        t474*t329*t330+.7243329991111113*t719*t561*t720)*t28*rhoa+
        96.4940495336121*t187*t171*t192*t44*t28*t189*rhoa+96.4940495336121*
        t187*t274*t188*t28*t189*rhoa-1.0*t275*t29*t3*t7+3.0*t123*t478-
        3.0*t11*t29*t3*t477+3.0*t171*t192*t28*t40*t45+6.0*t40*t274*
        t44*t28*t45+t173*t444-.1369866666666666*t1*t2*t3*t40*t171*
        t44*t45*t43+.0042589154666667*t1*t2*t3*t19*t274*t43-0.75*t29*
        t3*(-.1851832888888889*grada*t32*t334-.0045581444740741*t170*
        t31*t333+2.399088488296296e-4*t168*t46*t332-2.521633223111111e-6*
        t272*t193*t331+1.007351817102222e-8*t474*t342*t330-1.39455947662222e-11*
        t719*t574*t720)*t42+.2222222222222222*t172*t29*t3*t41-6.0*
        t171*t188*t190*t28*t40-0.09327*t19*t476*t28+3.0*t264*t276-
        .0018928513185185*t1*t2*t3*t19*t171*t191+96.4940495336121*
        t187*t171*t188*t28*t189+(-.2045393777777778*grada*t334*t54+
        0.0163269568*grada*t334*t50*t53+.0388699989333333*t170*t333*
        t53-9.059832320000001e-5*grada*t334*t51*t124-8.350517120000002e-4*
        t170*t333*t50*t124-4.351027968e-4*t168*t332*t124+3.610990310400001e-6*
        t170*t333*t51*t265+7.439389747200001e-6*t168*t332*t50*t265+
        1.0716659712e-6*t272*t331*t265-2.897263779840001e-8*t168*t332*
        t51*t445-1.65958336512e-8*t272*t331*t50*t445+6.0995026944e-11*
        t272*t331*t51*t682)*t134+0.0063883732*t1*t2*t3*t19*t476*t12-
        .4109599999999999*t1*t2*t3*t40*t274*t44*t45*t12-0.20548*t1*
        t2*t3*t40*t171*t192*t45*t12+.4109599999999999*t1*t2*t3*t40*
        t171*t188*t190*t12-6.60919909938887*t1*t2*t3*t187*t171*t188*
        t189*t12;
    d4fdrararagb = 3.0*t123*t479+t179*t444+3.0*t264*t277+
        (.0087770965333333*t21*gradb*t334*t53*t49-1.88560064e-4*t21*
        gradb*t334*t50*t124*t49-2.519016192e-4*t20*gradb*t333*t124*
        t49+8.153849088000001e-7*t21*gradb*t334*t51*t265*t49+4.307015116800001e-6*
        t20*gradb*t333*t50*t265*t49+1.0716659712e-6*t34*gradb*t332*
        t265*t49-1.67736324096e-8*t20*gradb*t333*t51*t445*t49-1.65958336512e-8*
        t34*gradb*t332*t50*t445*t49+6.0995026944e-11*t34*gradb*t332*
        t51*t682*t49)*t134;
    d4fdrararaab = 0.0;
    d4fdrararbrb = t55*(t56*(.0433743235311261*t67*t1*t2*
        t3*t89*t304*t95*t96*t76*t97+.1734972941245044*t67*t1*t2*t3*
        t89*t268*t95*t96*t76*t97+.0433743235311261*t67*t1*t2*t3*t89*
        t247*t95*t96*t76*t97-.1734972941245044*t67*t1*t2*t3*t210*t163*
        t95*t96*t76*t97-.1734972941245044*t67*t1*t2*t3*t210*t114*t95*
        t96*t76*t97-1.169644679491041*t67*t481*t95*t72*t96*t76*t97-
        1.169644679491041*t67*t465*t95*t72*t96*t76*t97-1.169644679491041*
        t67*t163*t397*t72*t96*t76*t97-1.169644679491041*t67*t114*t397*
        t72*t96*t76*t97-.5848223397455204*t67*t304*t222*t72*t96*t76*
        t97-2.339289358982082*t67*t268*t222*t72*t96*t76*t97-.5848223397455204*
        t67*t247*t222*t72*t96*t76*t97+.1301229705933783*t67*t1*t2*
        t3*t89*t163*t222*t96*t76*t97+.1301229705933783*t67*t1*t2*t3*
        t89*t114*t222*t96*t76*t97+7.017868076946245*t67*t163*t222*
        t95*t72*t219*t76*t97+7.017868076946245*t67*t114*t222*t95*t72*
        t219*t76*t97+1.169644679491041*t67*t304*t214*t72*t219*t76*
        t97+4.678578717964164*t67*t268*t214*t72*t219*t76*t97+1.169644679491041*
        t67*t247*t214*t72*t219*t76*t97-.2602459411867566*t67*t1*t2*
        t3*t89*t163*t214*t219*t76*t97-.2602459411867566*t67*t1*t2*
        t3*t89*t114*t214*t219*t76*t97-7.017868076946245*t67*t163*t377*
        t72*t215*t76*t97-7.017868076946245*t67*t114*t377*t72*t215*
        t76*t97-1.169644679491041*t67*t71*t95*t72*t96*t480*t97-1.169644679491041*
        t67*t71*t95*t72*t96*t459*t97+.0433743235311261*t67*t1*t2*t3*
        t89*t71*t95*t96*t299*t97-1.169644679491041*t67*t114*t95*t72*
        t96*t299*t97-.5848223397455204*t67*t71*t222*t72*t96*t299*t97+
        1.169644679491041*t67*t71*t214*t72*t219*t299*t97+.1734972941245044*
        t67*t1*t2*t3*t89*t71*t95*t96*t267*t97-2.339289358982082*t67*
        t163*t95*t72*t96*t267*t97-2.339289358982082*t67*t114*t95*t72*
        t96*t267*t97-2.339289358982082*t67*t71*t222*t72*t96*t267*t97+
        4.678578717964164*t67*t71*t214*t72*t219*t267*t97+.0433743235311261*
        t67*t1*t2*t3*t89*t71*t95*t96*t237*t97-1.169644679491041*t67*
        t163*t95*t72*t96*t237*t97-.5848223397455204*t67*t71*t222*t72*
        t96*t237*t97+1.169644679491041*t67*t71*t214*t72*t219*t237*
        t97-.1734972941245044*t67*t1*t2*t3*t210*t71*t95*t96*t161*t97+
        .0867486470622522*t67*t1*t2*t3*t89*t163*t95*t96*t161*t97+.1734972941245044*
        t67*t1*t2*t3*t89*t114*t95*t96*t161*t97-2.339289358982082*t67*
        t268*t95*t72*t96*t161*t97-1.169644679491041*t67*t247*t95*t72*
        t96*t161*t97-1.169644679491041*t67*t71*t397*t72*t96*t161*t97-
        1.169644679491041*t67*t163*t222*t72*t96*t161*t97-2.339289358982082*
        t67*t114*t222*t72*t96*t161*t97+.1301229705933783*t67*t1*t2*
        t3*t89*t71*t222*t96*t161*t97+7.017868076946245*t67*t71*t222*
        t95*t72*t219*t161*t97+2.339289358982082*t67*t163*t214*t72*
        t219*t161*t97+4.678578717964164*t67*t114*t214*t72*t219*t161*
        t97-.2602459411867566*t67*t1*t2*t3*t89*t71*t214*t219*t161*
        t97-7.017868076946245*t67*t71*t377*t72*t215*t161*t97-.1734972941245044*
        t67*t1*t2*t3*t210*t71*t95*t96*t108*t97+.1734972941245044*t67*
        t1*t2*t3*t89*t163*t95*t96*t108*t97+.0867486470622522*t67*t1*
        t2*t3*t89*t114*t95*t96*t108*t97-1.169644679491041*t67*t304*
        t95*t72*t96*t108*t97-2.339289358982082*t67*t268*t95*t72*t96*
        t108*t97-1.169644679491041*t67*t71*t397*t72*t96*t108*t97-2.339289358982082*
        t67*t163*t222*t72*t96*t108*t97-1.169644679491041*t67*t114*
        t222*t72*t96*t108*t97+.1301229705933783*t67*t1*t2*t3*t89*t71*
        t222*t96*t108*t97+7.017868076946245*t67*t71*t222*t95*t72*t219*
        t108*t97+4.678578717964164*t67*t163*t214*t72*t219*t108*t97+
        2.339289358982082*t67*t114*t214*t72*t219*t108*t97-.2602459411867566*
        t67*t1*t2*t3*t89*t71*t214*t219*t108*t97-7.017868076946245*
        t67*t71*t377*t72*t215*t108*t97-480.0*t243*t245*t67*t76*t85+
        t67*t69*t70*t723*t85-48.0*t161*t67*t68*t70*t85+48.0*t108*t67*
        t68*t70*t85+8.0*t113*t480*t67*t70*t85-8.0*t113*t459*t67*t70*
        t85+12.0*t245*t299*t67*t70*t85-48.0*t245*t267*t67*t70*t85+
        12.0*t237*t245*t67*t70*t85-8.0*t111*t480*t67*t69*t85-8.0*t111*
        t459*t67*t69*t85-240.0*t161*t418*t67*t69*t85-240.0*t108*t418*
        t67*t69*t85+20.0*t243*t299*t67*t69*t85+80.0*t243*t267*t67*
        t69*t85+20.0*t237*t243*t67*t69*t85-32.0*t111*t113*t299*t67*
        t85+96.0*t111*t161*t245*t67*t85+96.0*t108*t111*t245*t67*t85+
        160.0*t113*t161*t243*t67*t85-160.0*t108*t113*t243*t67*t85+
        32.0*t111*t113*t237*t67*t85+.0197517897025652*(t669+t665+480.0*
        t243*t245)*t67*t72*t76*t79-.0014649244029403*t67*t1*t2*t3*
        t89*t481*t76*t79-.0014649244029403*t67*t1*t2*t3*t89*t465*t76*
        t79+9.766162686268349e-4*t67*t1*t2*t3*t210*t304*t76*t79+.0039064650745073*
        t67*t1*t2*t3*t210*t268*t76*t79+9.766162686268349e-4*t67*t1*
        t2*t3*t210*t247*t76*t79-.0045575425869252*t67*t1*t2*t3*t373*
        t163*t76*t79-.0045575425869252*t67*t1*t2*t3*t373*t114*t76*
        t79+.0197517897025652*t67*t71*t72*t723*t79+.0395035794051304*
        t67*t114*t72*t480*t79-.0014649244029403*t67*t1*t2*t3*t89*t71*
        t480*t79+.0395035794051304*t67*t163*t72*t459*t79-.0014649244029403*
        t67*t1*t2*t3*t89*t71*t459*t79+.0197517897025652*t67*t247*t72*
        t299*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*t71*t299*t79-
        .0014649244029403*t67*t1*t2*t3*t89*t114*t299*t79+.0790071588102608*
        t67*t268*t72*t267*t79+.0039064650745073*t67*t1*t2*t3*t210*
        t71*t267*t79-.0029298488058805*t67*t1*t2*t3*t89*t163*t267*
        t79-.0029298488058805*t67*t1*t2*t3*t89*t114*t267*t79+.0197517897025652*
        t67*t304*t72*t237*t79+9.766162686268349e-4*t67*t1*t2*t3*t210*
        t71*t237*t79-.0014649244029403*t67*t1*t2*t3*t89*t163*t237*
        t79+.0395035794051304*t67*t465*t72*t161*t79-.0045575425869252*
        t67*t1*t2*t3*t373*t71*t161*t79-.0029298488058805*t67*t1*t2*
        t3*t89*t268*t161*t79-.0014649244029403*t67*t1*t2*t3*t89*t247*
        t161*t79+.0019532325372537*t67*t1*t2*t3*t210*t163*t161*t79+
        .0039064650745073*t67*t1*t2*t3*t210*t114*t161*t79+.0395035794051304*
        t67*t481*t72*t108*t79-.0045575425869252*t67*t1*t2*t3*t373*
        t71*t108*t79-.0014649244029403*t67*t1*t2*t3*t89*t304*t108*
        t79-.0029298488058805*t67*t1*t2*t3*t89*t268*t108*t79+.0039064650745073*
        t67*t1*t2*t3*t210*t163*t108*t79+.0019532325372537*t67*t1*t2*
        t3*t210*t114*t108*t79-24.0*t245*t254*t67*t70*t76+192.0*t111*
        t119*t245*t67*t76+2.0*t119*t480*t67*t69*t70+2.0*t119*t459*
        t67*t69*t70+2.0*t161*t429*t67*t69*t70+2.0*t108*t429*t67*t69*
        t70+4.0*t254*t267*t67*t69*t70+8.0*t113*t119*t299*t67*t70+8.0*
        t113*t161*t254*t67*t70-8.0*t108*t113*t254*t67*t70-24.0*t119*
        t161*t245*t67*t70-24.0*t108*t119*t245*t67*t70-8.0*t113*t119*
        t237*t67*t70-8.0*t111*t119*t299*t67*t69-32.0*t111*t119*t267*
        t67*t69-24.0*t111*t161*t254*t67*t69-24.0*t108*t111*t254*t67*
        t69+120.0*t119*t161*t243*t67*t69+120.0*t108*t119*t243*t67*
        t69-8.0*t111*t119*t237*t67*t69+t681+t679+t677+t675+t674+t673-
        64.0*t111*t113*t119*t161*t67+64.0*t108*t111*t113*t119*t67+
        t667+t659+t658+t657+t656+t655+t654+t653+t652+t651+t650+t649+
        t648+t647+t646+t644+t643+t642+t641+t640+t639+t638+t637+t636+
        t634+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+t618+
        t617+t615+t614+t613+t612+t611+t610+t609+t608+t606-2050.77940420156*
        t67*t163*t377*t72*t378*t76*t379-2050.77940420156*t67*t114*
        t377*t72*t378*t76*t379-2050.77940420156*t67*t71*t377*t72*t378*
        t161*t379-2050.77940420156*t67*t71*t377*t72*t378*t108*t379+
        t67*t69*t70*t299*t254+t67*t69*t70*t237*t254+207.7890707925104*
        t67*t163*t377*t72*t382*t76*t216+207.7890707925104*t67*t114*
        t377*t72*t382*t76*t216-103.8945353962552*t67*t163*t222*t95*
        t72*t215*t76*t216-103.8945353962552*t67*t114*t222*t95*t72*
        t215*t76*t216-17.31575589937587*t67*t304*t214*t72*t215*t76*
        t216-69.26302359750346*t67*t268*t214*t72*t215*t76*t216-17.31575589937587*
        t67*t247*t214*t72*t215*t76*t216+3.85275568761113*t67*t1*t2*
        t3*t89*t163*t214*t215*t76*t216+3.85275568761113*t67*t1*t2*
        t3*t89*t114*t214*t215*t76*t216-17.31575589937587*t67*t71*t214*
        t72*t215*t299*t216-69.26302359750346*t67*t71*t214*t72*t215*
        t267*t216-17.31575589937587*t67*t71*t214*t72*t215*t237*t216+
        207.7890707925104*t67*t71*t377*t72*t382*t161*t216-103.8945353962552*
        t67*t71*t222*t95*t72*t215*t161*t216-34.63151179875173*t67*
        t163*t214*t72*t215*t161*t216-69.26302359750346*t67*t114*t214*
        t72*t215*t161*t216+3.85275568761113*t67*t1*t2*t3*t89*t71*t214*
        t215*t161*t216+207.7890707925104*t67*t71*t377*t72*t382*t108*
        t216-103.8945353962552*t67*t71*t222*t95*t72*t215*t108*t216-
        69.26302359750346*t67*t163*t214*t72*t215*t108*t216-34.63151179875173*
        t67*t114*t214*t72*t215*t108*t216+3.85275568761113*t67*t1*t2*
        t3*t89*t71*t214*t215*t108*t216)+.2602459411867565*t67*t1*t2*
        t3*t89*t163*t95*t96*t76*t97+.2602459411867566*t67*t1*t2*t3*
        t89*t114*t95*t96*t76*t97-1.169644679491041*t67*t304*t95*t72*
        t96*t76*t97-4.678578717964164*t67*t268*t95*t72*t96*t76*t97-
        1.169644679491041*t67*t247*t95*t72*t96*t76*t97-3.508934038473122*
        t67*t163*t222*t72*t96*t76*t97-3.508934038473122*t67*t114*t222*
        t72*t96*t76*t97+7.017868076946245*t67*t163*t214*t72*t219*t76*
        t97+7.017868076946245*t67*t114*t214*t72*t219*t76*t97-1.169644679491041*
        t67*t71*t95*t72*t96*t299*t97-4.678578717964164*t67*t71*t95*
        t72*t96*t267*t97-1.169644679491041*t67*t71*t95*t72*t96*t237*
        t97+.2602459411867565*t67*t1*t2*t3*t89*t71*t95*t96*t161*t97-
        2.339289358982082*t67*t163*t95*t72*t96*t161*t97-4.678578717964164*
        t67*t114*t95*t72*t96*t161*t97-3.508934038473122*t67*t71*t222*
        t72*t96*t161*t97+7.017868076946245*t67*t71*t214*t72*t219*t161*
        t97+.2602459411867566*t67*t1*t2*t3*t89*t71*t95*t96*t108*t97-
        4.678578717964164*t67*t163*t95*t72*t96*t108*t97-2.339289358982082*
        t67*t114*t95*t72*t96*t108*t97-3.508934038473122*t67*t71*t222*
        t72*t96*t108*t97+7.017868076946245*t67*t71*t214*t72*t219*t108*
        t97+192.0*t111*t245*t67*t76*t85+2.0*t480*t67*t69*t70*t85+2.0*
        t459*t67*t69*t70*t85+8.0*t113*t299*t67*t70*t85-8.0*t113*t237*
        t67*t70*t85-8.0*t111*t299*t67*t69*t85-32.0*t111*t267*t67*t69*
        t85+120.0*t161*t243*t67*t69*t85+120.0*t108*t243*t67*t69*t85-
        8.0*t111*t237*t67*t69*t85-64.0*t111*t113*t161*t67*t85+64.0*
        t108*t111*t113*t67*t85+.0395035794051304*t67*t481*t72*t76*
        t79+.0395035794051304*t67*t465*t72*t76*t79-.0014649244029403*
        t67*t1*t2*t3*t89*t304*t76*t79-0.005859697611761*t67*t1*t2*
        t3*t89*t268*t76*t79-.0014649244029403*t67*t1*t2*t3*t89*t247*
        t76*t79+0.005859697611761*t67*t1*t2*t3*t210*t163*t76*t79+0.005859697611761*
        t67*t1*t2*t3*t210*t114*t76*t79+.0395035794051304*t67*t71*t72*
        t480*t79+.0395035794051304*t67*t71*t72*t459*t79+.0395035794051304*
        t67*t114*t72*t299*t79-.0014649244029403*t67*t1*t2*t3*t89*t71*
        t299*t79+.0790071588102608*t67*t163*t72*t267*t79+.0790071588102608*
        t67*t114*t72*t267*t79-0.005859697611761*t67*t1*t2*t3*t89*t71*
        t267*t79+.0395035794051304*t67*t163*t72*t237*t79-.0014649244029403*
        t67*t1*t2*t3*t89*t71*t237*t79+.0790071588102608*t67*t268*t72*
        t161*t79+.0395035794051304*t67*t247*t72*t161*t79+0.005859697611761*
        t67*t1*t2*t3*t210*t71*t161*t79-.0029298488058805*t67*t1*t2*
        t3*t89*t163*t161*t79-0.005859697611761*t67*t1*t2*t3*t89*t114*
        t161*t79+.0395035794051304*t67*t304*t72*t108*t79+.0790071588102608*
        t67*t268*t72*t108*t79+0.005859697611761*t67*t1*t2*t3*t210*
        t71*t108*t79-0.005859697611761*t67*t1*t2*t3*t89*t163*t108*
        t79-.0029298488058805*t67*t1*t2*t3*t89*t114*t108*t79-48.0*
        t119*t245*t67*t70*t76+2.0*t119*t299*t67*t69*t70+8.0*t119*t267*
        t67*t69*t70+6.0*t161*t254*t67*t69*t70+6.0*t108*t254*t67*t69*
        t70+2.0*t119*t237*t67*t69*t70+16.0*t113*t119*t161*t67*t70-
        16.0*t108*t113*t119*t67*t70-48.0*t111*t119*t161*t67*t69-48.0*
        t108*t111*t119*t67*t69+t601+t599+t598+t597+t596+t595+t594+
        t593+t592+t591+t590+t589+t588+t587+t586+t585+t584+t583+t582+
        t581+t580+t579+t578+t577+t576+t575+t482+t469-103.8945353962552*
        t67*t163*t214*t72*t215*t76*t216-103.8945353962552*t67*t114*
        t214*t72*t215*t76*t216-103.8945353962552*t67*t71*t214*t72*
        t215*t161*t216-103.8945353962552*t67*t71*t214*t72*t215*t108*
        t216)+2.0*t123*t484+2.0*t125*t483+2.0*t166*t473+2.0*t167*t472+
        t266*t311+4.0*t270*t271+t312*t264+(-.0091950535111111*t21*
        t48*t185*t53*t283+1.975391146666667e-4*t21*t48*t185*t50*t124*
        t283+1.119562752e-4*t20*t48*t184*t124*t283-8.542127616000001e-7*
        t21*t48*t185*t51*t265*t283-1.9142289408e-6*t20*t48*t184*t50*
        t265*t283+7.454947737600001e-9*t20*t48*t184*t51*t445*t283+
        1.119562752e-4*t21*t135*t185*t124*t282-1.9142289408e-6*t21*
        t135*t185*t50*t265*t282-1.4288879616e-6*t20*t135*t184*t265*
        t282+7.454947737600002e-9*t21*t135*t185*t51*t445*t282+2.21277782016e-8*
        t20*t135*t184*t50*t445*t282-8.1326702592e-11*t20*t135*t184*
        t51*t682*t282)*t134;
    d4fdrararbga = 2.0*t123*t485+t173*t472+2.0*t270*t276+
        t313*t264+t478*t166+(.0050154837333333*grada*t48*t185*t53*
        t149-1.07748608e-4*grada*t48*t185*t50*t124*t149-2.061013248e-4*
        t170*t48*t184*t124*t149+4.659342336000001e-7*grada*t48*t185*
        t51*t265*t149+3.5239214592e-6*t170*t48*t184*t50*t265*t149+
        1.0716659712e-6*t168*t48*t183*t265*t149-1.37238810624e-8*t170*
        t48*t184*t51*t445*t149-1.65958336512e-8*t168*t48*t183*t50*
        t445*t149+6.0995026944e-11*t168*t48*t183*t51*t682*t149)*t134;
    d4fdrararbgb = 2.0*
        t123*t486+t179*t472+2.0*t270*t277+t318*t264+t479*t166+(.0050154837333333*
        t21*gradb*t185*t53*t149-1.07748608e-4*t21*gradb*t185*t50*t124*
        t149-6.10670592e-5*t20*gradb*t184*t124*t149+4.659342336000001e-7*
        t21*gradb*t185*t51*t265*t149+1.0441248768e-6*t20*gradb*t184*
        t50*t265*t149-4.066335129600001e-9*t20*gradb*t184*t51*t445*
        t149-8.396720639999998e-5*t21*t176*t185*t124*t148+1.4356717056e-6*
        t21*t176*t185*t50*t265*t148+1.0716659712e-6*t20*t176*t184*
        t265*t148-5.591210803200001e-9*t21*t176*t185*t51*t445*t148-
        1.65958336512e-8*t20*t176*t184*t50*t445*t148+6.0995026944e-11*
        t20*t176*t184*t51*t682*t148)*t134;
    d4fdrararbab = 0.0;
    d4fdraragaga = 2.0*t28*t40*t44*t45*t488*rhoa+t40*t320*
        t192*t28*t45*rhoa-2.0*t188*t190*t28*t320*t40*rhoa-0.03109*
        t19*(9.186026666666667*t26*t185-76.56236799999999*t21*t24*
        t184+95.53695573333334*t20*t35*t183-42.79049898666668*t34*
        t181*t182+8.050671616000002*t180*t329*t475-.5432497493333335*
        t328*t561*t724)*t28*rhoa+32.1646831778707*t187*t320*t188*t28*
        t189*rhoa-.3333333333333333*t29*t3*t321*t7+2.0*t123*t490-2.0*
        t11*t29*t3*t489+2.0*t28*t320*t40*t44*t45+.0014196384888889*
        t1*t2*t3*t19*t320*t43-0.75*(.0396821333333333*t32*t185+0.0017203968*
        t21*t31*t184-1.235772757333333e-4*t20*t46*t183+1.535903061333333e-6*
        t34*t193*t182-6.9014388736e-9*t180*t342*t475+1.04591960746667e-11*
        t328*t574*t724)*t29*t3*t42-0.06218*t19*t488*t28+t322*t264+
        (.0438298666666667*t185*t54-0.0034986336*t185*t50*t53-0.0176111872*
        t21*t184*t53+1.94139264e-5*t185*t51*t124+3.78344544e-4*t21*
        t184*t50*t124+2.690767296e-4*t20*t183*t124-1.6360645248e-6*
        t21*t184*t51*t265-4.6006752384e-6*t20*t183*t50*t265-8.037494784e-7*
        t34*t182*t265+1.79172891648e-8*t20*t183*t51*t445+1.24468752384e-8*
        t34*t182*t50*t445-4.5746270208e-11*t34*t182*t51*t682)*t134+
        .0042589154666667*t1*t2*t3*t19*t488*t12-.1369866666666666*
        t1*t2*t3*t40*t320*t44*t45*t12;
    d4fdraragagb = 2.0*t123*t491+t323*t264+(-0.0037616128*
        grada*gradb*t185*t53*t49+8.081145599999999e-5*grada*gradb*
        t185*t50*t124*t49+1.545759936e-4*t170*gradb*t184*t124*t49-
        3.494506752000001e-7*grada*gradb*t185*t51*t265*t49-2.6429410944e-6*
        t170*gradb*t184*t50*t265*t49-8.037494784e-7*t168*gradb*t183*
        t265*t49+1.02929107968e-8*t170*gradb*t184*t51*t445*t49+1.24468752384e-8*
        t168*gradb*t183*t50*t445*t49-4.5746270208e-11*t168*gradb*t183*
        t51*t682*t49)*t134;
    d4fdraragaab = 0.0;
    d4fdraragbgb = 2.0*t123*t492+t327*t264+(-0.0018808064*
        t21*t185*t53*t49+4.0405728e-5*t21*t185*t50*t124*t49+2.29001472e-5*
        t20*t184*t124*t49-1.747253376e-7*t21*t185*t51*t265*t49-3.915468288e-7*
        t20*t184*t50*t265*t49+1.5248756736e-9*t20*t184*t51*t445*t49+
        6.29754048e-5*t21*t48*t185*t124*t138-1.0767537792e-6*t21*t48*
        t185*t50*t265*t138-8.037494784e-7*t20*t48*t184*t265*t138+4.193408102400001e-9*
        t21*t48*t185*t51*t445*t138+1.24468752384e-8*t20*t48*t184*t50*
        t445*t138-4.5746270208e-11*t20*t48*t184*t51*t682*t138)*t134;
    d4fdraragbab = 0.0;
    d4fdraraabab = 0.0;
    d4fdrarbrbrb = t55*
        (t56*(.1301229705933783*t67*t1*t2*t3*t89*t304*t95*t96*t76*
        t97-.2602459411867565*t67*t1*t2*t3*t210*t163*t95*t96*t76*t97-
        .0867486470622522*t67*t1*t2*t3*t210*t114*t95*t96*t76*t97-.5848223397455204*
        t67*t527*t95*t72*t96*t76*t97-1.754467019236561*t67*t481*t95*
        t72*t96*t76*t97-1.754467019236561*t67*t163*t397*t72*t96*t76*
        t97-.5848223397455204*t67*t114*t397*t72*t96*t76*t97-1.754467019236561*
        t67*t304*t222*t72*t96*t76*t97+.1951844558900674*t67*t1*t2*
        t3*t89*t163*t222*t96*t76*t97+.0650614852966891*t67*t1*t2*t3*
        t89*t114*t222*t96*t76*t97+10.52680211541937*t67*t163*t222*
        t95*t72*t219*t76*t97+3.508934038473122*t67*t114*t222*t95*t72*
        t219*t76*t97+3.508934038473122*t67*t304*t214*t72*t219*t76*
        t97-.3903689117801349*t67*t1*t2*t3*t89*t163*t214*t219*t76*
        t97-.1301229705933783*t67*t1*t2*t3*t89*t114*t214*t219*t76*
        t97-10.52680211541937*t67*t163*t377*t72*t215*t76*t97-3.508934038473122*
        t67*t114*t377*t72*t215*t76*t97-.5848223397455204*t67*t71*t95*
        t72*t96*t521*t97-1.754467019236561*t67*t71*t95*t72*t96*t480*
        t97+.1301229705933783*t67*t1*t2*t3*t89*t71*t95*t96*t299*t97-
        1.754467019236561*t67*t163*t95*t72*t96*t299*t97-1.754467019236561*
        t67*t114*t95*t72*t96*t299*t97-1.754467019236561*t67*t71*t222*
        t72*t96*t299*t97+3.508934038473122*t67*t71*t214*t72*t219*t299*
        t97-3.508934038473122*t67*t163*t95*t72*t96*t267*t97-.2602459411867565*
        t67*t1*t2*t3*t210*t71*t95*t96*t161*t97+.2602459411867566*t67*
        t1*t2*t3*t89*t163*t95*t96*t161*t97-1.754467019236561*t67*t304*
        t95*t72*t96*t161*t97-3.508934038473122*t67*t268*t95*t72*t96*
        t161*t97-1.754467019236561*t67*t71*t397*t72*t96*t161*t97-3.508934038473122*
        t67*t163*t222*t72*t96*t161*t97+.1951844558900674*t67*t1*t2*
        t3*t89*t71*t222*t96*t161*t97+10.52680211541937*t67*t71*t222*
        t95*t72*t219*t161*t97+7.017868076946245*t67*t163*t214*t72*
        t219*t161*t97-.3903689117801349*t67*t1*t2*t3*t89*t71*t214*
        t219*t161*t97-10.52680211541937*t67*t71*t377*t72*t215*t161*
        t97-.0867486470622522*t67*t1*t2*t3*t210*t71*t95*t96*t108*t97-
        1.754467019236561*t67*t304*t95*t72*t96*t108*t97-.5848223397455204*
        t67*t71*t397*t72*t96*t108*t97+.0650614852966891*t67*t1*t2*
        t3*t89*t71*t222*t96*t108*t97+3.508934038473122*t67*t71*t222*
        t95*t72*t219*t108*t97-.1301229705933783*t67*t1*t2*t3*t89*t71*
        t214*t219*t108*t97-3.508934038473122*t67*t71*t377*t72*t215*
        t108*t97-192.0*t111*t67*t68*t76*t85+960.0*t113*t418*t67*t76*
        t85+t67*t69*t70*t725*t85+72.0*t161*t67*t68*t70*t85-24.0*t108*
        t67*t68*t70*t85+4.0*t113*t521*t67*t70*t85-12.0*t113*t480*t67*
        t70*t85-36.0*t245*t299*t67*t70*t85-4.0*t111*t521*t67*t69*t85-
        12.0*t111*t480*t67*t69*t85-360.0*t161*t418*t67*t69*t85-120.0*
        t108*t418*t67*t69*t85+60.0*t243*t299*t67*t69*t85+96.0*t111*
        t113*t267*t67*t85+144.0*t111*t161*t245*t67*t85-144.0*t108*
        t111*t245*t67*t85-240.0*t113*t161*t243*t67*t85-240.0*t108*
        t113*t243*t67*t85+.0197517897025652*t67*(192.0*t111*t68+t669+
        t662-960.0*t113*t418)*t72*t76*t79-7.324622014701263e-4*t67*
        t1*t2*t3*t89*t527*t76*t79-.0021973866044104*t67*t1*t2*t3*t89*
        t481*t76*t79+.0029298488058805*t67*t1*t2*t3*t210*t304*t76*
        t79-.0068363138803878*t67*t1*t2*t3*t373*t163*t76*t79-.0022787712934626*
        t67*t1*t2*t3*t373*t114*t76*t79+.0197517897025652*t67*t71*t72*
        t725*t79+.0197517897025652*t67*t114*t72*t521*t79-7.324622014701263e-4*
        t67*t1*t2*t3*t89*t71*t521*t79+.0592553691076956*t67*t163*t72*
        t480*t79-.0021973866044104*t67*t1*t2*t3*t89*t71*t480*t79+.0592553691076956*
        t67*t268*t72*t299*t79+.0029298488058805*t67*t1*t2*t3*t210*
        t71*t299*t79-.0021973866044104*t67*t1*t2*t3*t89*t163*t299*
        t79-.0021973866044104*t67*t1*t2*t3*t89*t114*t299*t79+.0592553691076956*
        t67*t304*t72*t267*t79-.0043947732088208*t67*t1*t2*t3*t89*t163*
        t267*t79+.0592553691076956*t67*t481*t72*t161*t79-.0068363138803878*
        t67*t1*t2*t3*t373*t71*t161*t79-.0021973866044104*t67*t1*t2*
        t3*t89*t304*t161*t79-.0043947732088208*t67*t1*t2*t3*t89*t268*
        t161*t79+0.005859697611761*t67*t1*t2*t3*t210*t163*t161*t79+
        .0197517897025652*t67*t527*t72*t108*t79-.0022787712934626*
        t67*t1*t2*t3*t373*t71*t108*t79-.0021973866044104*t67*t1*t2*
        t3*t89*t304*t108*t79+48.0*t119*t67*t68*t70*t76-8.0*t113*t429*
        t67*t70*t76+96.0*t111*t113*t254*t67*t76-480.0*t113*t119*t243*
        t67*t76+t718+t717+t716+t715+t714+t713+t712+t711+t709+t708+
        t707+t706+t705+t704+t703+t702+t701+t700+3.0*t119*t480*t67*
        t69*t70+3.0*t161*t429*t67*t69*t70+3.0*t254*t299*t67*t69*t70-
        24.0*t113*t119*t267*t67*t70-12.0*t113*t161*t254*t67*t70-12.0*
        t108*t113*t254*t67*t70-36.0*t119*t161*t245*t67*t70+36.0*t108*
        t119*t245*t67*t70+t699+t698+t697+t696+t695+t694+t693-24.0*
        t111*t119*t299*t67*t69-36.0*t111*t161*t254*t67*t69-12.0*t108*
        t111*t254*t67*t69+180.0*t119*t161*t243*t67*t69+60.0*t108*t119*
        t243*t67*t69+t679+t677+t675+t674+t673+96.0*t111*t113*t119*
        t161*t67+96.0*t108*t111*t113*t119*t67+t667+t659+t658+t657+
        t656+t655+t654+t653+t652+t651+t650+t649+t648+t647+t646+t644+
        t643+t642+t641+t640+t639+t638+t637+t636+t634+t628+t627+t626+
        t625+t624+t623+t622+t621+t620+t619+t618+t617+t615+t614+t613+
        t612+t611+t610+t609+t608+t606+t67*t69*t70*t108*t429-3076.169106302339*
        t67*t163*t377*t72*t378*t76*t379-1025.38970210078*t67*t114*
        t377*t72*t378*t76*t379-3076.169106302339*t67*t71*t377*t72*
        t378*t161*t379-1025.38970210078*t67*t71*t377*t72*t378*t108*
        t379+311.6836061887656*t67*t163*t377*t72*t382*t76*t216+103.8945353962552*
        t67*t114*t377*t72*t382*t76*t216-155.8418030943828*t67*t163*
        t222*t95*t72*t215*t76*t216-51.9472676981276*t67*t114*t222*
        t95*t72*t215*t76*t216-51.9472676981276*t67*t304*t214*t72*t215*
        t76*t216+5.779133531416695*t67*t1*t2*t3*t89*t163*t214*t215*
        t76*t216+1.926377843805565*t67*t1*t2*t3*t89*t114*t214*t215*
        t76*t216-51.9472676981276*t67*t71*t214*t72*t215*t299*t216+
        311.6836061887656*t67*t71*t377*t72*t382*t161*t216-155.8418030943828*
        t67*t71*t222*t95*t72*t215*t161*t216-103.8945353962552*t67*
        t163*t214*t72*t215*t161*t216+5.779133531416695*t67*t1*t2*t3*
        t89*t71*t214*t215*t161*t216+103.8945353962552*t67*t71*t377*
        t72*t382*t108*t216-51.9472676981276*t67*t71*t222*t95*t72*t215*
        t108*t216+1.926377843805565*t67*t1*t2*t3*t89*t71*t214*t215*
        t108*t216+t67*t69*t70*t521*t119)+.3903689117801349*t67*t1*
        t2*t3*t89*t163*t95*t96*t76*t97-3.508934038473123*t67*t304*
        t95*t72*t96*t76*t97-5.263401057709684*t67*t163*t222*t72*t96*
        t76*t97+10.52680211541937*t67*t163*t214*t72*t219*t76*t97-3.508934038473123*
        t67*t71*t95*t72*t96*t299*t97+.3903689117801349*t67*t1*t2*t3*
        t89*t71*t95*t96*t161*t97-7.017868076946246*t67*t163*t95*t72*
        t96*t161*t97-5.263401057709684*t67*t71*t222*t72*t96*t161*t97+
        10.52680211541937*t67*t71*t214*t72*t219*t161*t97+48.0*t67*
        t68*t70*t76*t85-480.0*t113*t243*t67*t76*t85+3.0*t480*t67*t69*
        t70*t85-24.0*t113*t267*t67*t70*t85-36.0*t161*t245*t67*t70*
        t85-24.0*t111*t299*t67*t69*t85+180.0*t161*t243*t67*t69*t85+
        96.0*t108*t111*t113*t67*t85+.0592553691076956*t67*t481*t72*
        t76*t79-.0043947732088208*t67*t1*t2*t3*t89*t304*t76*t79+.0087895464176415*
        t67*t1*t2*t3*t210*t163*t76*t79+.0592553691076956*t67*t71*t72*
        t480*t79+.0592553691076956*t67*t114*t72*t299*t79-.0043947732088208*
        t67*t1*t2*t3*t89*t71*t299*t79+.1185107382153912*t67*t163*t72*
        t267*t79+.1185107382153912*t67*t268*t72*t161*t79+.0087895464176415*
        t67*t1*t2*t3*t210*t71*t161*t79-.0087895464176415*t67*t1*t2*
        t3*t89*t163*t161*t79+.0592553691076956*t67*t304*t72*t108*t79-
        24.0*t113*t254*t67*t70*t76+192.0*t111*t113*t119*t67*t76+6.0*
        t119*t299*t67*t69*t70+9.0*t161*t254*t67*t69*t70-24.0*t108*
        t113*t119*t67*t70+t692+t691+t690-72.0*t111*t119*t161*t67*t69+
        t689+t688+t687+t686+t685+t684+t683+t601+t599+t598+t597+t596+
        t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+t585+t584+
        t583+t582+t581+t580+t579+t578+t577+t576+t575+t534+t532+t531+
        t528+t525+t523+t522+t440+t438+t433+t431+t416+t414+t399+t395+
        t393+t389+t388+t387+t386+t381-155.8418030943828*t67*t163*t214*
        t72*t215*t76*t216-155.8418030943828*t67*t71*t214*t72*t215*
        t161*t216)+t125*t536+3.0*t166*t484+3.0*t167*t483+3.0*t270*
        t312+3.0*t271*t311+(-.0117027953777778*t21*t48*t38*t53*t499+
        2.514134186666667e-4*t21*t48*t38*t50*t124*t499-1.0871798784e-6*
        t21*t48*t38*t51*t265*t499+3.358688255999999e-4*t21*t135*t38*
        t124*t498-5.742686822399999e-6*t21*t135*t38*t50*t265*t498+
        2.23648432128e-8*t21*t135*t38*t51*t445*t498-1.4288879616e-6*
        t21*t145*t38*t265*t497+2.21277782016e-8*t21*t145*t38*t50*t445*
        t497-8.1326702592e-11*t21*t145*t38*t51*t682*t497)*t134+t537*
        t123;
    d4fdrarbrbga = 2.0*t166*t485+t173*t483+2.0*t270*t313+
        t276*t311+(.0050154837333333*grada*t48*t38*t53*t283-1.07748608e-4*
        grada*t48*t38*t50*t124*t283-8.396720639999998e-5*t170*t48*
        t37*t124*t283+4.659342336e-7*grada*t48*t38*t51*t265*t283+1.4356717056e-6*
        t170*t48*t37*t50*t265*t283-5.5912108032e-9*t170*t48*t37*t51*
        t445*t283-6.10670592e-5*grada*t135*t38*t124*t282+1.0441248768e-6*
        grada*t135*t38*t50*t265*t282+1.0716659712e-6*t170*t135*t37*
        t265*t282-4.066335129600001e-9*grada*t135*t38*t51*t445*t282-
        1.65958336512e-8*t170*t135*t37*t50*t445*t282+6.0995026944e-11*
        t170*t135*t37*t51*t682*t282)*t134+t538*t123;
    d4fdrarbrbgb = 2.0*t166*t486+t179*t483+2.0*t270*t318+
        t277*t311+(.0050154837333333*t21*gradb*t38*t53*t283-1.07748608e-4*
        t21*gradb*t38*t50*t124*t283+4.659342336e-7*t21*gradb*t38*t51*
        t265*t283-2.061013248e-4*t21*t176*t38*t124*t282+3.5239214592e-6*
        t21*t176*t38*t50*t265*t282-1.37238810624e-8*t21*t176*t38*t51*
        t445*t282+1.0716659712e-6*t21*t174*t38*t265*t281-1.65958336512e-8*
        t21*t174*t38*t50*t445*t281+6.0995026944e-11*t21*t174*t38*t51*
        t682*t281)*t134+t543*t123;
    d4fdrarbrbab = 0.0;
    d4fdrarbgaga = (-0.0013678592*t48*t38*t53*t149+2.9385984e-5*
        t48*t38*t50*t124*t149+1.14500736e-4*t21*t48*t37*t124*t149-
        1.270729728e-7*t48*t38*t51*t265*t149-1.957734144e-6*t21*t48*
        t37*t50*t265*t149-8.037494784e-7*t20*t48*t36*t265*t149+7.624378368000001e-9*
        t21*t48*t37*t51*t445*t149+1.24468752384e-8*t20*t48*t36*t50*
        t445*t149-4.5746270208e-11*t20*t48*t36*t51*t682*t149)*t134+
        t544*t123+t490*t166+t322*t270;
    d4fdrarbgagb = (-0.0027357184*grada*gradb*t38*t53*t149+
        5.8771968e-5*grada*gradb*t38*t50*t124*t149+4.58002944e-5*t170*
        gradb*t37*t124*t149-2.541459456e-7*grada*gradb*t38*t51*t265*
        t149-7.830936576e-7*t170*gradb*t37*t50*t265*t149+3.0497513472e-9*
        t170*gradb*t37*t51*t445*t149+4.58002944e-5*grada*t176*t38*
        t124*t148-7.830936576e-7*grada*t176*t38*t50*t265*t148-8.037494784e-7*
        t170*t176*t37*t265*t148+3.0497513472e-9*grada*t176*t38*t51*
        t445*t148+1.24468752384e-8*t170*t176*t37*t50*t445*t148-4.5746270208e-11*
        t170*t176*t37*t51*t682*t148)*t134+t545*t123+t491*t166+t323*
        t270;
    d4fdrarbgaab = 0.0;
    d4fdrarbgbgb = (-0.0013678592*t21*t38*t53*t149+2.9385984e-5*
        t21*t38*t50*t124*t149-1.270729728e-7*t21*t38*t51*t265*t149+
        1.14500736e-4*t21*t48*t38*t124*t148-1.957734144e-6*t21*t48*
        t38*t50*t265*t148+7.624378368000001e-9*t21*t48*t38*t51*t445*
        t148-8.037494784e-7*t21*t135*t38*t265*t147+1.24468752384e-8*
        t21*t135*t38*t50*t445*t147-4.5746270208e-11*t21*t135*t38*t51*
        t682*t147)*t134+t549*t123+t492*t166+t327*t270;
    d4fdrarbgbab = 0.0;
    d4fdrarbabab = 0.0;
    d4fdragagaga = t40*t551*t44*t28*t45*rhoa-0.03109*t19*
        (24.75776*grada*t24*t37-46.33216*t170*t35*t36+25.47907584000001*
        t168*t181*t273-5.477777408000002*t272*t329*t487+.4074373120000002*
        t474*t561*t726)*t28*rhoa-1.0*t11*t29*t3*t552-0.75*t29*t3*(-
        4.931583999999998e-4*grada*t31*t37+5.681274879999999e-5*t170*
        t46*t36-8.882798591999999e-7*t168*t193*t273+4.6367768576e-9*
        t272*t342*t487-7.844397056e-12*t474*t574*t726)*t42-0.03109*
        t19*t551*t28+(0.0061553664*grada*t37*t53-1.32236928e-4*grada*
        t37*t50*t124-1.545759936e-4*t170*t36*t124+5.718283776000002e-7*
        grada*t37*t51*t265+2.6429410944e-6*t170*t36*t50*t265+6.028121088e-7*
        t168*t273*t265-1.02929107968e-8*t170*t36*t51*t445-9.335156428800001e-9*
        t168*t273*t50*t445+3.4309702656e-11*t168*t273*t51*t682)*t134+
        t553*t123+.0021294577333333*t1*t2*t3*t19*t551*t12;
    d4fdragagagb = (0.0010258944*gradb*t38*t53*t49-2.2039488e-5*
        gradb*t38*t50*t124*t49-8.5875552e-5*t21*gradb*t37*t124*t49+
        9.53047296e-8*gradb*t38*t51*t265*t49+1.468300608e-6*t21*gradb*
        t37*t50*t265*t49+6.028121088e-7*t20*gradb*t36*t265*t49-5.718283776000002e-9*
        t21*gradb*t37*t51*t445*t49-9.335156428800001e-9*t20*gradb*
        t36*t50*t445*t49+3.4309702656e-11*t20*gradb*t36*t51*t682*t49)*
        t134+t554*t123;
    d4fdragagaab = 0.0;
    d4fdragagbgb = (0.0010258944*grada*t38*t53*t49-2.2039488e-5*
        grada*t38*t50*t124*t49-1.71751104e-5*t170*t37*t124*t49+9.53047296e-8*
        grada*t38*t51*t265*t49+2.936601216e-7*t170*t37*t50*t265*t49-
        1.1436567552e-9*t170*t37*t51*t445*t49-3.43502208e-5*grada*
        t48*t38*t124*t138+5.873202432e-7*grada*t48*t38*t50*t265*t138+
        6.028121088e-7*t170*t48*t37*t265*t138-2.287313510400001e-9*
        grada*t48*t38*t51*t445*t138-9.335156428800001e-9*t170*t48*
        t37*t50*t445*t138+3.4309702656e-11*t170*t48*t37*t51*t682*t138)*
        t134+t555*t123;
    d4fdragagbab = 0.0;
    d4fdragaabab = 0.0;
    d4fdragbgbgb = (-5.15253312e-5*t21*gradb*t38*t124*t138+
        8.809803648e-7*t21*gradb*t38*t50*t265*t138-3.4309702656e-9*
        t21*gradb*t38*t51*t445*t138+6.028121088e-7*t21*t176*t38*t265*
        t175-9.335156428800001e-9*t21*t176*t38*t50*t445*t175+3.4309702656e-11*
        t21*t176*t38*t51*t682*t175)*t134+t559*t123;
    d4fdragbgbab = 0.0;
    d4fdragbabab = 0.0;
    d4fdraababab = 0.0;
    d4fdrbrbrbrb = t55*(24829.60425438716*t501*t736*t133*
        t738*rhob-199659.0885685683*t735*t736*t133*t737*rhob+24.0*
        t151*t736*t133*t504*rhob+1157.928594403345*t285*t290*t286*
        t133*t504*rhob-1157.928594403345*t285*t736*t133*t503*rhob-
        12414.80212719358*t501*t290*t286*t133*t503*rhob+6.0*t151*t739*
        t133*t288*rhob+8.0*t151*t506*t155*t133*t288*rhob-96.4940495336121*
        t285*t739*t133*t287*rhob-36.0*t151*t290*t286*t133*t287*rhob-
        128.6587327114828*t285*t506*t155*t133*t287*rhob-1.0*t151*t740*
        t133*t156*rhob+t56*(.2602459411867566*t67*t1*t2*t3*t89*t304*
        t95*t96*t76*t97-.3469945882490088*t67*t1*t2*t3*t210*t163*t95*
        t96*t76*t97-2.339289358982082*t67*t527*t95*t72*t96*t76*t97-
        2.339289358982082*t67*t163*t397*t72*t96*t76*t97-3.508934038473122*
        t67*t304*t222*t72*t96*t76*t97+.2602459411867566*t67*t1*t2*
        t3*t89*t163*t222*t96*t76*t97+14.03573615389249*t67*t163*t222*
        t95*t72*t219*t76*t97+7.017868076946245*t67*t304*t214*t72*t219*
        t76*t97-.5204918823735132*t67*t1*t2*t3*t89*t163*t214*t219*
        t76*t97-14.03573615389249*t67*t163*t377*t72*t215*t76*t97-2.339289358982082*
        t67*t71*t95*t72*t96*t521*t97+.2602459411867566*t67*t1*t2*t3*
        t89*t71*t95*t96*t299*t97-7.017868076946245*t67*t163*t95*t72*
        t96*t299*t97-3.508934038473122*t67*t71*t222*t72*t96*t299*t97+
        7.017868076946245*t67*t71*t214*t72*t219*t299*t97-.3469945882490088*
        t67*t1*t2*t3*t210*t71*t95*t96*t161*t97+.5204918823735132*t67*
        t1*t2*t3*t89*t163*t95*t96*t161*t97-7.017868076946245*t67*t304*
        t95*t72*t96*t161*t97-2.339289358982082*t67*t71*t397*t72*t96*
        t161*t97-7.017868076946245*t67*t163*t222*t72*t96*t161*t97+
        .2602459411867566*t67*t1*t2*t3*t89*t71*t222*t96*t161*t97+14.03573615389249*
        t67*t71*t222*t95*t72*t219*t161*t97+14.03573615389249*t67*t163*
        t214*t72*t219*t161*t97-.5204918823735132*t67*t1*t2*t3*t89*
        t71*t214*t219*t161*t97-14.03573615389249*t67*t71*t377*t72*
        t215*t161*t97+384.0*t111*t67*t68*t76*t85+1920.0*t113*t418*
        t67*t76*t85+t67*t69*t70*t742*t85-96.0*t161*t67*t68*t70*t85-
        16.0*t113*t521*t67*t70*t85+72.0*t245*t299*t67*t70*t85-16.0*
        t111*t521*t67*t69*t85-480.0*t161*t418*t67*t69*t85+120.0*t243*
        t299*t67*t69*t85+192.0*t111*t113*t299*t67*t85-576.0*t111*t161*
        t245*t67*t85-960.0*t113*t161*t243*t67*t85+.0197517897025652*
        t67*(-384.0*t111*t68+t670+t669+t665-1920.0*t113*t418)*t72*
        t76*t79-.0029298488058805*t67*t1*t2*t3*t89*t527*t76*t79+0.005859697611761*
        t67*t1*t2*t3*t210*t304*t76*t79-.0091150851738505*t67*t1*t2*
        t3*t373*t163*t76*t79+.0197517897025652*t67*t71*t72*t742*t79+
        .0790071588102608*t67*t163*t72*t521*t79-.0029298488058805*
        t67*t1*t2*t3*t89*t71*t521*t79+.1185107382153912*t67*t304*t72*
        t299*t79+0.005859697611761*t67*t1*t2*t3*t210*t71*t299*t79-
        .0087895464176415*t67*t1*t2*t3*t89*t163*t299*t79+.0790071588102608*
        t67*t527*t72*t161*t79-.0091150851738505*t67*t1*t2*t3*t373*
        t71*t161*t79-.0087895464176415*t67*t1*t2*t3*t89*t304*t161*
        t79+0.011719395223522*t67*t1*t2*t3*t210*t163*t161*t79-96.0*
        t119*t67*t68*t70*t76-16.0*t113*t429*t67*t70*t76+192.0*t111*
        t113*t254*t67*t76-960.0*t113*t119*t243*t67*t76+4.0*t119*t521*
        t67*t69*t70+4.0*t161*t429*t67*t69*t70+6.0*t254*t299*t67*t69*
        t70-48.0*t113*t119*t299*t67*t70-48.0*t113*t161*t254*t67*t70+
        144.0*t119*t161*t245*t67*t70-48.0*t111*t119*t299*t67*t69-48.0*
        t111*t161*t254*t67*t69+240.0*t119*t161*t243*t67*t69+t681+t680+
        t679+t678+t677+t676+t675+t674+t673+384.0*t111*t113*t119*t161*
        t67+t667+t659+t658+t657+t656+t655+t654+t653+t652+t651+t650+
        t649+t648+t647+t646+t644+t643+t642+t641+t640+t639+t638+t637+
        t636+t634+t628+t627+t626+t625+t624+t623+t622+t621+t620+t619+
        t618+t617+t615+t614+t613+t612+t611+t610+t609+t608+t606-4101.558808403119*
        t67*t163*t377*t72*t378*t76*t379-4101.558808403119*t67*t71*
        t377*t72*t378*t161*t379+415.5781415850207*t67*t163*t377*t72*
        t382*t76*t216-207.7890707925104*t67*t163*t222*t95*t72*t215*
        t76*t216-103.8945353962552*t67*t304*t214*t72*t215*t76*t216+
        7.70551137522226*t67*t1*t2*t3*t89*t163*t214*t215*t76*t216-
        103.8945353962552*t67*t71*t214*t72*t215*t299*t216+415.5781415850207*
        t67*t71*t377*t72*t382*t161*t216-207.7890707925104*t67*t71*
        t222*t95*t72*t215*t161*t216-207.7890707925104*t67*t163*t214*
        t72*t215*t161*t216+7.70551137522226*t67*t1*t2*t3*t89*t71*t214*
        t215*t161*t216)+.5204918823735132*t67*t1*t2*t3*t89*t163*t95*
        t96*t76*t97-7.017868076946245*t67*t304*t95*t72*t96*t76*t97-
        7.017868076946245*t67*t163*t222*t72*t96*t76*t97+14.03573615389249*
        t67*t163*t214*t72*t219*t76*t97-7.017868076946245*t67*t71*t95*
        t72*t96*t299*t97+.5204918823735132*t67*t1*t2*t3*t89*t71*t95*
        t96*t161*t97-14.03573615389249*t67*t163*t95*t72*t96*t161*t97-
        7.017868076946245*t67*t71*t222*t72*t96*t161*t97+14.03573615389249*
        t67*t71*t214*t72*t219*t161*t97-96.0*t67*t68*t70*t76*t85-960.0*
        t113*t243*t67*t76*t85+4.0*t521*t67*t69*t70*t85-48.0*t113*t299*
        t67*t70*t85+144.0*t161*t245*t67*t70*t85-48.0*t111*t299*t67*
        t69*t85+240.0*t161*t243*t67*t69*t85+384.0*t111*t113*t161*t67*
        t85+.0790071588102608*t67*t527*t72*t76*t79-.0087895464176415*
        t67*t1*t2*t3*t89*t304*t76*t79+0.011719395223522*t67*t1*t2*
        t3*t210*t163*t76*t79+.0790071588102608*t67*t71*t72*t521*t79+
        .2370214764307825*t67*t163*t72*t299*t79-.0087895464176415*
        t67*t1*t2*t3*t89*t71*t299*t79+.2370214764307825*t67*t304*t72*
        t161*t79+0.011719395223522*t67*t1*t2*t3*t210*t71*t161*t79-
        0.017579092835283*t67*t1*t2*t3*t89*t163*t161*t79-48.0*t113*
        t254*t67*t70*t76+384.0*t111*t113*t119*t67*t76+12.0*t119*t299*
        t67*t69*t70+12.0*t161*t254*t67*t69*t70-96.0*t113*t119*t161*
        t67*t70-96.0*t111*t119*t161*t67*t69+t602+t601+t600+t599+t598+
        t597+t596+t595+t594+t593+t592+t591+t590+t589+t588+t587+t586+
        t585+t584+t583+t582+t581+t580+t579+t578+t577+t576+t575-.0044166530765432*
        t1*t2*t3*t132*t505+771.9523962688968*t285*t502*t133*t504-8276.534751462386*
        t501*t502*t133*t503-.2435318518518518*t1*t2*t3*t151*t155*t156*
        t289+24.0*t151*t290*t155*t133*t288-24.0*t151*t502*t133*t287-
        385.9761981344484*t285*t290*t155*t133*t287-207.7890707925104*
        t67*t163*t214*t72*t215*t76*t216-207.7890707925104*t67*t71*
        t214*t72*t215*t161*t216-4.0*t151*t506*t133*t156-.5479466666666666*
        t1*t2*t3*t151*t286*t288*t154+8.812265465851826*t1*t2*t3*t285*
        t286*t287*t154+.2739733333333333*t1*t2*t3*t151*t290*t156*t154-
        52.87359279511096*t1*t2*t3*t285*t502*t504*t129+566.8874535768302*
        t1*t2*t3*t501*t502*t503*t129-1.64384*t1*t2*t3*t151*t290*t155*
        t288*t129+1.64384*t1*t2*t3*t151*t502*t287*t129+26.43679639755548*
        t1*t2*t3*t285*t290*t155*t287*t129+.2739733333333333*t1*t2*
        t3*t151*t506*t156*t129)-6.0*t133*t140*t151*t288*t739*rhob-
        24829.60425438716*t501*t140*t736*t133*t738*rhob+199659.0885685683*
        t735*t140*t736*t133*t737*rhob-24.0*t133*t140*t151*t504*t736*
        rhob-8.0*t133*t140*t151*t155*t288*t506*rhob+4.0*t133*t150*
        t151*t156*t506*rhob-771.9523962688968*t285*t150*t502*t133*
        t504*rhob-1157.928594403345*t285*t140*t290*t286*t133*t504*
        rhob+1157.928594403345*t285*t140*t736*t133*t503*rhob+8276.534751462386*
        t501*t150*t502*t133*t503*rhob+12414.80212719358*t501*t140*
        t290*t286*t133*t503*rhob+24.0*t133*t150*t151*t287*t502*rhob+
        4.0*t133*t151*t155*t156*t500*rhob-24.0*t133*t150*t151*t155*
        t288*t290*rhob+36.0*t133*t140*t151*t286*t287*t290*rhob+6.0*
        t133*t151*t156*t284*t290*rhob-12.0*t133*t151*t284*t286*t288*
        rhob+96.4940495336121*t285*t140*t739*t133*t287*rhob+192.9880990672242*
        t285*t284*t286*t133*t287*rhob+385.9761981344484*t285*t150*
        t290*t155*t133*t287*rhob+128.6587327114828*t285*t506*t140*
        t155*t133*t287*rhob+t151*t740*t140*t133*t156*rhob-0.03109*
        t132*(121.4596859259259*t48*t139*t734-374.965149234568*t135*
        t137*t733+309.0964808691358*t145*t146*t732-106.678065682963*
        t278*t279*t731+16.60602625896297*t493*t494*t730-.9657773321481483*
        t727*t728*t729)*t133*rhob-0.75*t153*t29*t3*(.5246859851851852*
        t48*t143*t734+.0100516841876543*t135*t142*t733-4.292351342617283e-4*
        t145*t157*t732+3.979720082014815e-6*t278*t291*t731-1.447727716882963e-8*
        t493*t507*t730+1.8594126354963e-11*t727*t741*t729)+4.0*t166*
        t537+4.0*t167*t536-4.0*t128*t29*t3*t508+4.0*t133*t140*t151*
        t156*t506+.0044166530765432*t1*t2*t3*t132*t140*t505-771.9523962688968*
        t285*t140*t502*t133*t504+8276.534751462386*t501*t140*t502*
        t133*t503+24.0*t133*t140*t151*t287*t502-.3703703703703703*
        t144*t29*t3*t49+6.0*t311*t312-2.0*t126*t29*t292*t3+.8888888888888888*
        t152*t158*t29*t3-24.0*t133*t140*t151*t155*t288*t290+.2435318518518518*
        t1*t2*t3*t151*t140*t155*t156*t289-.0075714052740741*t1*t2*
        t3*t132*t150*t289-24.0*t151*t150*t286*t133*t288+385.9761981344484*
        t285*t150*t286*t133*t287+385.9761981344484*t285*t140*t290*
        t155*t133*t287+12.0*t151*t150*t290*t133*t156+12.0*t151*t284*
        t155*t133*t156+.5479466666666666*t1*t2*t3*t151*t140*t286*t288*
        t154-8.812265465851826*t1*t2*t3*t285*t140*t286*t287*t154+.0085178309333333*
        t1*t2*t3*t132*t284*t154-.2739733333333333*t1*t2*t3*t151*t140*
        t290*t156*t154-.5479466666666666*t1*t2*t3*t151*t150*t155*t156*
        t154+(0.579528237037037*t48*t54*t734-.0462597109333333*t48*
        t50*t53*t734+2.566952490666667e-4*t48*t51*t124*t734-.0743963420444444*
        t135*t53*t733+.0015982710186667*t135*t50*t124*t733-6.911357798400002e-6*
        t135*t51*t265*t733+6.717376511999998e-4*t145*t124*t732-1.14853736448e-5*
        t145*t50*t265*t732+4.47296864256e-8*t145*t51*t445*t732-1.4288879616e-6*
        t278*t265*t731+2.21277782016e-8*t278*t50*t445*t731-8.1326702592e-11*
        t278*t51*t682*t731)*t134-0.12436*t132*t500*t133+52.87359279511096*
        t1*t2*t3*t285*t140*t502*t504*t129-566.8874535768302*t1*t2*
        t3*t501*t140*t502*t503*t129+.0085178309333333*t1*t2*t3*t132*
        t500*t129+1.64384*t1*t2*t3*t151*t150*t286*t288*t129+1.64384*
        t1*t2*t3*t151*t140*t290*t155*t288*t129-1.64384*t1*t2*t3*t151*
        t140*t502*t287*t129-26.43679639755548*t1*t2*t3*t285*t150*t286*
        t287*t129-26.43679639755548*t1*t2*t3*t285*t140*t290*t155*t287*
        t129-.8219199999999999*t1*t2*t3*t151*t150*t290*t156*t129-.8219199999999999*
        t1*t2*t3*t151*t284*t155*t156*t129-.2739733333333333*t1*t2*
        t3*t151*t506*t140*t156*t129;
    d4fdrbrbrbga = 3.0*t166*t538+t173*t536+3.0*t311*t313+
        (.0087770965333333*grada*t48*t22*t53*t499-1.88560064e-4*grada*
        t48*t22*t50*t124*t499+8.153849088000001e-7*grada*t48*t22*t51*
        t265*t499-2.519016192e-4*grada*t135*t22*t124*t498+4.307015116800001e-6*
        grada*t135*t22*t50*t265*t498-1.67736324096e-8*grada*t135*t22*
        t51*t445*t498+1.0716659712e-6*grada*t145*t22*t265*t497-1.65958336512e-8*
        grada*t145*t22*t50*t445*t497+6.0995026944e-11*grada*t145*t22*
        t51*t682*t497)*t134;
    d4fdrbrbrbgb = 3.0*t133*t151*t155*t156*t541*rhob-192.9880990672242*
        t285*t177*t502*t133*t504*rhob+2069.133687865597*t501*t177*
        t502*t133*t503*rhob+6.0*t133*t151*t177*t287*t502*rhob+3.0*
        t133*t151*t156*t290*t316*rhob-6.0*t133*t151*t286*t288*t316*
        rhob-6.0*t133*t151*t155*t177*t288*t290*rhob+96.4940495336121*
        t285*t316*t286*t133*t287*rhob+96.4940495336121*t285*t177*t290*
        t155*t133*t287*rhob+t151*t506*t177*t133*t156*rhob-0.03109*
        t132*(-42.86812444444445*gradb*t139*t499+183.0697765925926*
        t176*t137*t498-178.1160523851852*t174*t146*t497+68.73326478222224*
        t314*t279*t496-11.63964507022223*t539*t494*t495+.7243329991111113*
        t743*t728*t744)*t133*rhob+3.0*t166*t543-3.0*t128*t29*t3*t542+
        t179*t536-0.75*t153*t29*t3*(-.1851832888888889*gradb*t143*
        t499-.0045581444740741*t176*t142*t498+2.399088488296296e-4*
        t174*t157*t497-2.521633223111111e-6*t314*t291*t496+1.007351817102222e-8*
        t539*t507*t495-1.39455947662222e-11*t743*t741*t744)+3.0*t311*
        t318-1.0*t126*t29*t3*t317+.2222222222222222*t152*t178*t29*
        t3+3.0*t133*t151*t156*t177*t290-.0018928513185185*t1*t2*t3*
        t132*t177*t289-6.0*t133*t151*t177*t286*t288+96.4940495336121*
        t285*t177*t286*t133*t287+6.0*t151*t316*t155*t133*t156+.0042589154666667*
        t1*t2*t3*t132*t316*t154-.1369866666666666*t1*t2*t3*t151*t177*
        t155*t156*t154+(-.2045393777777778*gradb*t54*t499+0.0163269568*
        gradb*t50*t53*t499-9.059832320000001e-5*gradb*t51*t124*t499+
        .0388699989333333*t176*t53*t498-8.350517120000002e-4*t176*
        t50*t124*t498+3.610990310400001e-6*t176*t51*t265*t498-4.351027968e-4*
        t174*t124*t497+7.439389747200001e-6*t174*t50*t265*t497-2.897263779840001e-8*
        t174*t51*t445*t497+1.0716659712e-6*t314*t265*t496-1.65958336512e-8*
        t314*t50*t445*t496+6.0995026944e-11*t314*t51*t682*t496)*t134-
        0.09327*t132*t541*t133+0.0063883732*t1*t2*t3*t132*t541*t129+
        .4109599999999999*t1*t2*t3*t151*t177*t286*t288*t129-6.60919909938887*
        t1*t2*t3*t285*t177*t286*t287*t129-0.20548*t1*t2*t3*t151*t177*
        t290*t156*t129-.4109599999999999*t1*t2*t3*t151*t316*t155*t156*
        t129;
    d4fdrbrbrbab = 0.0;
    d4fdrbrbgaga = 2.0*t166*t544+t322*t311+(-0.0018808064*
        t48*t22*t53*t283+4.0405728e-5*t48*t22*t50*t124*t283+6.29754048e-5*
        t21*t48*t25*t124*t283-1.747253376e-7*t48*t22*t51*t265*t283-
        1.0767537792e-6*t21*t48*t25*t50*t265*t283+4.193408102400001e-9*
        t21*t48*t25*t51*t445*t283+2.29001472e-5*t135*t22*t124*t282-
        3.915468288e-7*t135*t22*t50*t265*t282-8.037494784e-7*t21*t135*
        t25*t265*t282+1.5248756736e-9*t135*t22*t51*t445*t282+1.24468752384e-8*
        t21*t135*t25*t50*t445*t282-4.5746270208e-11*t21*t135*t25*t51*
        t682*t282)*t134;
    d4fdrbrbgagb = 2.0*t166*t545+t323*t311+(-0.0037616128*
        grada*gradb*t22*t53*t283+8.081145599999999e-5*grada*gradb*
        t22*t50*t124*t283-3.494506752000001e-7*grada*gradb*t22*t51*
        t265*t283+1.545759936e-4*grada*t176*t22*t124*t282-2.6429410944e-6*
        grada*t176*t22*t50*t265*t282+1.02929107968e-8*grada*t176*t22*
        t51*t445*t282-8.037494784e-7*grada*t174*t22*t265*t281+1.24468752384e-8*
        grada*t174*t22*t50*t445*t281-4.5746270208e-11*grada*t174*t22*
        t51*t682*t281)*t134;
    d4fdrbrbgaab = 0.0;
    d4fdrbrbgbgb = 2.0*t133*t151*t155*t156*t547*rhob-2.0*
        t133*t151*t286*t288*t325*rhob+32.1646831778707*t285*t325*t286*
        t133*t287*rhob+t151*t325*t290*t133*t156*rhob-0.03109*t132*
        (9.186026666666667*t139*t283-76.56236799999999*t48*t137*t282+
        95.53695573333334*t135*t146*t281-42.79049898666668*t145*t279*
        t280+8.050671616000002*t278*t494*t540-.5432497493333335*t493*
        t728*t745)*t133*rhob+2.0*t166*t549-2.0*t128*t29*t3*t548-.3333333333333333*
        t126*t29*t3*t326+2.0*t133*t151*t155*t156*t325+t327*t311-0.75*
        t153*(.0396821333333333*t143*t283+0.0017203968*t48*t142*t282-
        1.235772757333333e-4*t135*t157*t281+1.535903061333333e-6*t145*
        t291*t280-6.9014388736e-9*t278*t507*t540+1.04591960746667e-11*
        t493*t741*t745)*t29*t3+.0014196384888889*t1*t2*t3*t132*t325*
        t154+(.0438298666666667*t54*t283-0.0034986336*t50*t53*t283+
        1.94139264e-5*t51*t124*t283-0.0176111872*t48*t53*t282+3.78344544e-4*
        t48*t50*t124*t282-1.6360645248e-6*t48*t51*t265*t282+2.690767296e-4*
        t135*t124*t281-4.6006752384e-6*t135*t50*t265*t281+1.79172891648e-8*
        t135*t51*t445*t281-8.037494784e-7*t145*t265*t280+1.24468752384e-8*
        t145*t50*t445*t280-4.5746270208e-11*t145*t51*t682*t280)*t134-
        0.06218*t132*t547*t133+.0042589154666667*t1*t2*t3*t132*t547*
        t129-.1369866666666666*t1*t2*t3*t151*t325*t155*t156*t129;
    d4fdrbrbgbab = 0.0;
    d4fdrbrbabab = 0.0;
    d4fdrbgagaga = (-
        5.15253312e-5*grada*t48*t25*t124*t149+8.809803648e-7*grada*
        t48*t25*t50*t265*t149+6.028121088e-7*t170*t48*t169*t265*t149-
        3.4309702656e-9*grada*t48*t25*t51*t445*t149-9.335156428800001e-9*
        t170*t48*t169*t50*t445*t149+3.4309702656e-11*t170*t48*t169*
        t51*t682*t149)*t134+t553*t166;
    d4fdrbgagagb = (0.0010258944*gradb*t22*t53*t149-2.2039488e-5*
        gradb*t22*t50*t124*t149-3.43502208e-5*t21*gradb*t25*t124*t149+
        9.53047296e-8*gradb*t22*t51*t265*t149+5.873202432e-7*t21*gradb*
        t25*t50*t265*t149-2.287313510400001e-9*t21*gradb*t25*t51*t445*
        t149-1.71751104e-5*t176*t22*t124*t148+2.936601216e-7*t176*
        t22*t50*t265*t148+6.028121088e-7*t21*t176*t25*t265*t148-1.1436567552e-9*
        t176*t22*t51*t445*t148-9.335156428800001e-9*t21*t176*t25*t50*
        t445*t148+3.4309702656e-11*t21*t176*t25*t51*t682*t148)*t134+
        t554*t166;
    d4fdrbgagaab = 0.0;
    d4fdrbgagbgb = (0.0010258944*grada*t22*t53*t149-2.2039488e-5*
        grada*t22*t50*t124*t149+9.53047296e-8*grada*t22*t51*t265*t149-
        8.587555199999999e-5*grada*t48*t22*t124*t148+1.468300608e-6*
        grada*t48*t22*t50*t265*t148-5.718283776000002e-9*grada*t48*
        t22*t51*t445*t148+6.028121088e-7*grada*t135*t22*t265*t147-
        9.335156428800001e-9*grada*t135*t22*t50*t445*t147+3.4309702656e-11*
        grada*t135*t22*t51*t682*t147)*t134+t555*t166;
    d4fdrbgagbab = 0.0;
    d4fdrbgaabab = 0.0;
    d4fdrbgbgbgb = t151*t557*t155*t133*t156*rhob-0.03109*
        t132*(24.75776*gradb*t137*t148-46.33216*t176*t146*t147+25.47907584000001*
        t174*t279*t315-5.477777408000002*t314*t494*t546+.4074373120000002*
        t539*t728*t746)*t133*rhob-1.0*t128*t29*t3*t558-0.75*(-4.931583999999998e-4*
        gradb*t142*t148+5.681274879999999e-5*t176*t157*t147-8.882798591999999e-7*
        t174*t291*t315+4.6367768576e-9*t314*t507*t546-7.844397056e-12*
        t539*t741*t746)*t153*t29*t3+t559*t166+(0.0061553664*gradb*
        t53*t148-1.32236928e-4*gradb*t50*t124*t148+5.718283776000002e-7*
        gradb*t51*t265*t148-1.545759936e-4*t176*t124*t147+2.6429410944e-6*
        t176*t50*t265*t147-1.02929107968e-8*t176*t51*t445*t147+6.028121088e-7*
        t174*t265*t315-9.335156428800001e-9*t174*t50*t445*t315+3.4309702656e-11*
        t174*t51*t682*t315)*t134-0.03109*t132*t557*t133+.0021294577333333*
        t1*t2*t3*t132*t557*t129;
    d4fdrbgbgbab = 0.0;
    d4fdrbgbabab = 0.0;
    d4fdrbababab = 0.0;
    d4fdgagagaga = -0.03109*t19*(-4.64208*t24*t25+19.231392*
        t21*t35*t169-14.27097600000001*t20*t181*t319+3.649966080000002*
        t34*t329*t550-.3055779840000001*t180*t561*t747)*t28*rhoa-0.75*
        (9.246719999999999e-5*t31*t25-2.20445184e-5*t21*t46*t169+4.780763136000001e-7*
        t20*t193*t319-3.036335308800001e-9*t34*t342*t550+5.883297792e-12*
        t180*t574*t747)*t29*t3*t42+(-0.0011541312*t25*t53+2.4794424e-5*
        t25*t50*t124+7.728799680000001e-5*t21*t169*t124-1.072178208e-7*
        t25*t51*t265-1.3214705472e-6*t21*t169*t50*t265-4.521090816000001e-7*
        t20*t319*t265+5.146455398399999e-9*t21*t169*t51*t445+7.001367321600002e-9*
        t20*t319*t50*t445-2.5732276992e-11*t20*t319*t51*t682)*t134;
    d4fdgagagagb = (3.864399840000001e-5*grada*gradb*t25*
        t124*t49-6.607352736000001e-7*grada*gradb*t25*t50*t265*t49-
        4.521090816000001e-7*t170*gradb*t169*t265*t49+2.5732276992e-9*
        grada*gradb*t25*t51*t445*t49+7.001367321600002e-9*t170*gradb*
        t169*t50*t445*t49-2.5732276992e-11*t170*gradb*t169*t51*t682*
        t49)*t134;
    d4fdgagagaab = 0.0;
    d4fdgagagbgb = (-3.847104000000001e-4*t22*t53*t49+8.264808e-6*
        t22*t50*t124*t49+1.28813328e-5*t21*t25*t124*t49-3.57392736e-8*
        t22*t51*t265*t49-2.202450912e-7*t21*t25*t50*t265*t49+8.577425664e-10*
        t21*t25*t51*t445*t49+1.28813328e-5*t48*t22*t124*t138-2.202450912e-7*
        t48*t22*t50*t265*t138-4.521090816000001e-7*t21*t48*t25*t265*
        t138+8.577425664e-10*t48*t22*t51*t445*t138+7.001367321600002e-9*
        t21*t48*t25*t50*t445*t138-2.5732276992e-11*t21*t48*t25*t51*
        t682*t138)*t134;
    d4fdgagagbab = 0.0;
    d4fdgagaabab = 0.0;
    d4fdgagbgbgb = (3.864399840000001e-5*grada*gradb*t22*
        t124*t138-6.607352736000002e-7*grada*gradb*t22*t50*t265*t138+
        2.5732276992e-9*grada*gradb*t22*t51*t445*t138-4.521090816000001e-7*
        grada*t176*t22*t265*t175+7.001367321600002e-9*grada*t176*t22*
        t50*t445*t175-2.5732276992e-11*grada*t176*t22*t51*t682*t175)*
        t134;
    d4fdgagbgbab = 0.0;
    d4fdgagbabab = 0.0;
    d4fdgaababab = 0.0;
    d4fdgbgbgbgb = -0.03109*t132*(-4.64208*t137*t138+19.231392*
        t48*t146*t175-14.27097600000001*t135*t279*t324+3.649966080000002*
        t145*t494*t556-.3055779840000001*t278*t728*t748)*t133*rhob-
        0.75*(9.246719999999999e-5*t142*t138-2.20445184e-5*t48*t157*
        t175+4.780763136000001e-7*t135*t291*t324-3.036335308800001e-9*
        t145*t507*t556+5.883297792e-12*t278*t741*t748)*t153*t29*t3+
        (-0.0011541312*t53*t138+2.4794424e-5*t50*t124*t138-1.072178208e-7*
        t51*t265*t138+7.728799680000001e-5*t48*t124*t175-1.3214705472e-6*
        t48*t50*t265*t175+5.146455398399999e-9*t48*t51*t445*t175-4.521090816000001e-7*
        t135*t265*t324+7.001367321600002e-9*t135*t50*t445*t324-2.5732276992e-11*
        t135*t51*t682*t324)*t134;
    d4fdgbgbgbab = 0.0;
    d4fdgbgbabab = 0.0;
    d4fdgbababab = 0.0;
    d4fdabababab = 0.0;


    ds->df1000 += factor*dfdra;
    ds->df0100 += factor*dfdrb;
    ds->df0010 += factor*dfdga;
    ds->df0001 += factor*dfdgb;
    ds->df00001+= factor*dfdgab;

    ds->df2000 += factor*d2fdrara;
    ds->df1100 += factor*d2fdrarb;
    ds->df1010 += factor*d2fdraga;
    ds->df1001 += factor*d2fdragb;
    ds->df10001+= factor*d2fdraab;
    ds->df0200 += factor*d2fdrbrb;
    ds->df0110 += factor*d2fdrbga;
    ds->df0101 += factor*d2fdrbgb;
    ds->df01001+= factor*d2fdrbgab;
    ds->df0020 += factor*d2fdgaga;
    ds->df0011 += factor*d2fdgagb;
    ds->df00101+= factor*d2fdgagab;
    ds->df0002 += factor*d2fdgbgb;
    ds->df00011+= factor*d2fdgbgab;
    ds->df00002+= factor*d2fdgabgab;

    ds->df3000 += factor*d3fdrarara;
    ds->df2100  += factor*d3fdrararb;
    ds->df2010  += factor*d3fdraraga;
    ds->df2001  += factor*d3fdraragb;
    ds->df20001 += factor*d3fdraraab;
    ds->df1200  += factor*d3fdrarbrb;
    ds->df1110  += factor*d3fdrarbga;
    ds->df1101  += factor*d3fdrarbgb;
    ds->df11001 += factor*d3fdrarbab;
    ds->df1020  += factor*d3fdragaga;
    ds->df1011  += factor*d3fdragagb;
    ds->df10101 += factor*d3fdragaab;
    ds->df1002  += factor*d3fdragbgb;
    ds->df10011 += factor*d3fdragbab;
    ds->df10002 += factor*d3fdraabab;
    ds->df0300  += factor*d3fdrbrbrb;
    ds->df0210  += factor*d3fdrbrbga;
    ds->df0201  += factor*d3fdrbrbgb;
    ds->df02001 += factor*d3fdrbrbab;
    ds->df0120  += factor*d3fdrbgaga;
    ds->df0111  += factor*d3fdrbgagb;
    ds->df01101 += factor*d3fdrbgaab;
    ds->df0102  += factor*d3fdrbgbgb;
    ds->df01011 += factor*d3fdrbgbab;
    ds->df01002 += factor*d3fdrbabab;
    ds->df0030  += factor*d3fdgagaga;
    ds->df0021  += factor*d3fdgagagb;
    ds->df00201 += factor*d3fdgagaab;
    ds->df0012  += factor*d3fdgagbgb;
    ds->df00111 += factor*d3fdgagbab;
    ds->df00102 += factor*d3fdgaabab;
    ds->df0003  += factor*d3fdgbgbgb;
    ds->df00021 += factor*d3fdgbgbab;
    ds->df00012 += factor*d3fdgbabab;
    ds->df00003 += factor*d3fdababab;

    ds->df4000  += factor*d4fdrararara;
    ds->df3100  += factor*d4fdrarararb;
    ds->df3010  += factor*d4fdrararaga;
    ds->df3001  += factor*d4fdrararagb;
    ds->df30001 += factor*d4fdrararaab;
    ds->df2200  += factor*d4fdrararbrb;
    ds->df2110  += factor*d4fdrararbga;
    ds->df2101  += factor*d4fdrararbgb;
    ds->df21001 += factor*d4fdrararbab;
    ds->df2020  += factor*d4fdraragaga;
    ds->df2011  += factor*d4fdraragagb;
    ds->df20101 += factor*d4fdraragaab;
    ds->df2002  += factor*d4fdraragbgb;
    ds->df20011 += factor*d4fdraragbab;
    ds->df20002 += factor*d4fdraraabab;
    ds->df1300  += factor*d4fdrarbrbrb;
    ds->df1210  += factor*d4fdrarbrbga;
    ds->df1201  += factor*d4fdrarbrbgb;
    ds->df12001 += factor*d4fdrarbrbab;
    ds->df1120  += factor*d4fdrarbgaga;
    ds->df1111  += factor*d4fdrarbgagb;
    ds->df11101 += factor*d4fdrarbgaab;
    ds->df1102  += factor*d4fdrarbgbgb;
    ds->df11011 += factor*d4fdrarbgbab;
    ds->df11002 += factor*d4fdrarbabab;
    ds->df1030  += factor*d4fdragagaga;
    ds->df1021  += factor*d4fdragagagb;
    ds->df10201 += factor*d4fdragagaab;
    ds->df1012  += factor*d4fdragagbgb;
    ds->df10111 += factor*d4fdragagbab;
    ds->df10102 += factor*d4fdragaabab;
    ds->df1003  += factor*d4fdragbgbgb;
    ds->df10021 += factor*d4fdragbgbab;
    ds->df10012 += factor*d4fdragbabab;
    ds->df10003 += factor*d4fdraababab;
    ds->df0400  += factor*d4fdrbrbrbrb;
    ds->df0310  += factor*d4fdrbrbrbga;
    ds->df0301  += factor*d4fdrbrbrbgb;
    ds->df03001 += factor*d4fdrbrbrbab;
    ds->df0220  += factor*d4fdrbrbgaga;
    ds->df0211  += factor*d4fdrbrbgagb;
    ds->df02101 += factor*d4fdrbrbgaab;
    ds->df0202  += factor*d4fdrbrbgbgb;
    ds->df02011 += factor*d4fdrbrbgbab;
    ds->df02002 += factor*d4fdrbrbabab;
    ds->df0130  += factor*d4fdrbgagaga;
    ds->df0121  += factor*d4fdrbgagagb;
    ds->df01201 += factor*d4fdrbgagaab;
    ds->df0112  += factor*d4fdrbgagbgb;
    ds->df01111 += factor*d4fdrbgagbab;
    ds->df01102 += factor*d4fdrbgaabab;
    ds->df0103  += factor*d4fdrbgbgbgb;
    ds->df01021 += factor*d4fdrbgbgbab;
    ds->df01012 += factor*d4fdrbgbabab;
    ds->df01003 += factor*d4fdrbababab;
    ds->df0040  += factor*d4fdgagagaga;
    ds->df0031  += factor*d4fdgagagagb;
    ds->df00301 += factor*d4fdgagagaab;
    ds->df0022  += factor*d4fdgagagbgb;
    ds->df00211 += factor*d4fdgagagbab;
    ds->df00202 += factor*d4fdgagaabab;
    ds->df0013  += factor*d4fdgagbgbgb;
    ds->df00121 += factor*d4fdgagbgbab;
    ds->df00112 += factor*d4fdgagbabab;
    ds->df00103 += factor*d4fdgaababab;
    ds->df0004  += factor*d4fdgbgbgbgb;
    ds->df00031 += factor*d4fdgbgbgbab;
    ds->df00022 += factor*d4fdgbgbabab;
    ds->df00013 += factor*d4fdgbababab;
    ds->df00004 += factor*d4fdabababab;

}
